Message ID | 6dba264c-e865-6874-d91c-0e228834343b@tkoenig.net |
---|---|
State | New |
Headers | show |
Series | [fortran,committed] Fix PR 92017 | expand |
Index: expr.c =================================================================== --- expr.c (Revision 276937) +++ expr.c (Arbeitskopie) @@ -2066,6 +2066,9 @@ simplify_parameter_variable (gfc_expr *p, int type e->rank = p->rank; + if (e->ts.type == BT_CHARACTER && e->ts.u.cl == NULL) + e->ts.u.cl = gfc_new_charlen (gfc_current_ns, p->ts.u.cl); + /* Do not copy subobject refs for constant. */ if (e->expr_type != EXPR_CONSTANT && p->ref != NULL) e->ref = gfc_copy_ref (p->ref);