Hello world, in the absence of a test case for PR 90539, I'm taking a shotgun approach: Fix something that appears strange in the debug logs and see if this more or less accidentally fixes the problem. If not, at least there is one fewer point to look at.
I have committed the attached patch as obvious and simple, r271630. Regards Thomas 2019-05-26 Thomas Koenig <tkoe...@gcc.gnu.org> PR fortran/90539 * trans-types.c (get_formal_from_actual_arglist): Set rank and lower bound for assumed size arguments.
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; } }