Correction régression class_40.f90

This commit is contained in:
Mikael Morin 2025-10-07 14:38:25 +02:00
parent 81df5b1d86
commit 9aa7ec58f8
1 changed files with 0 additions and 1 deletions

View File

@ -1841,7 +1841,6 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
array->ts.u.derived = derived;
array->attr.flavor = FL_VARIABLE;
array->attr.dummy = 1;
array->attr.contiguous = 1;
array->attr.dimension = 1;
array->attr.artificial = 1;
array->as = gfc_get_array_spec();