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;
        }

Reply via email to