https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77506
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #1 from kargl at gcc dot gnu.org ---
Index: array.c
===================================================================
--- array.c (revision 239797)
+++ array.c (working copy)
@@ -1089,6 +1089,7 @@ match_array_cons_element (gfc_constructo
@@ -1141,6 +1142,15 @@ gfc_match_array_constructor (gfc_expr **
gfc_restore_last_undo_checkpoint ();
goto cleanup;
}
+
+ if (ts.type == BT_CHARACTER
+ && ts.u.cl && !ts.u.cl->length && !ts.u.cl->length_from_typespec)
+ {
+ gfc_error ("Type-spec at %L cannot contain an asterick for a "
+ "type parameter", &where);
+ gfc_restore_last_undo_checkpoint ();
+ goto cleanup;
+ }
}
}
else if (m == MATCH_ERROR)
