[Bug fortran/44371] [4.6 Regression] STOP parsing rejects valid code

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2010-06-02 04:17 -------
Some additional tests/results:

Because we are using gfc_match_init_expr: leaving the ; out.

pr44371.f90:5.18:

  if (c=='y') stop if (c=='Y') stop
                  1
Error: Function 'if' in initialization expression at (1) must be an intrinsic
function

This makes no sense in the context, so I want to change the above error
message.

The following message is given after I fix the eos match issue:

  if (c=='y') stop 123 if (c=='Y') stop
                      1
Error: Syntax error in STOP statement at (1)

Simply deleting the match_eos leaves the invalid undetected.

I plan to commit the following as simple and obvious. Sorry for the breakage.

Index: match.c
===================================================================
--- match.c     (revision 160130)
+++ match.c     (working copy)
@@ -2018,10 +2018,11 @@
        goto cleanup;
       if (m == MATCH_NO)
        goto syntax;
+
+      if (gfc_match_eos () != MATCH_YES)
+       goto syntax;
     }

-  if (gfc_match_eos () != MATCH_YES)
-    goto syntax;

   if (gfc_pure (NULL))
     {


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44371