Message ID | ba3a6e88-b333-caeb-b2e7-60142c80f2b3@netcologne.de |
---|---|
State | New |
Headers | show |
Series | [fortran,committed] Set rank and lower bound for assumed size arguments | expand |
Index: trans-types.c =================================================================== --- trans-types.c (Revision 271376) +++ trans-types.c (Arbeitskopie) @@ -3010,6 +3010,10 @@ get_formal_from_actual_arglist (gfc_symbol *sym, g { s->attr.dimension = 1; s->as = gfc_get_array_spec (); + s->as->rank = 1; + s->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, + &a->expr->where, 1); + s->as->upper[0] = NULL; s->as->type = AS_ASSUMED_SIZE; } }