https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92996
kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |kargl at gcc dot gnu.org --- Comment #2 from kargl at gcc dot gnu.org --- Index: gcc/fortran/match.c =================================================================== --- gcc/fortran/match.c (revision 279444) +++ gcc/fortran/match.c (working copy) @@ -3104,9 +3104,9 @@ gfc_match_stopcode (gfc_statement st) goto cleanup; } - if (e->rank != 0) + if (e->rank != 0 || e->expr_type == EXPR_ARRAY) { - gfc_error ("STOP code at %L must be scalar", &e->where); + gfc_error ("STOP code at %C must be scalar"); goto cleanup; }