OSDN Git Service

PR fortran/24640
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 2 Jan 2006 22:23:35 +0000 (22:23 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 2 Jan 2006 22:23:35 +0000 (22:23 +0000)
* parse.c (next_free): Check for whitespace after the label.
* match.c (gfc_match_small_literal_int): Initialize cnt variable.

* gfortran.dg/label_2.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109246 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/match.c
gcc/fortran/parse.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/label_2.f90 [new file with mode: 0644]

index c8c82da..e2f63f6 100644 (file)
@@ -1,3 +1,9 @@
+2006-01-02  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/24640
+       * parse.c (next_free): Check for whitespace after the label.
+       * match.c (gfc_match_small_literal_int): Initialize cnt variable.
+
 2006-01-01  Steven G. Kargl  <kargls@comcast.net>
 
        * ChangeLog: Split previous years into ...
index e28127b..a07de60 100644 (file)
@@ -151,6 +151,7 @@ gfc_match_small_literal_int (int *value, int *cnt)
 
   gfc_gobble_whitespace ();
   c = gfc_next_char ();
+  *cnt = 0;
 
   if (!ISDIGIT (c))
     {
index a0da448..87f36df 100644 (file)
@@ -334,6 +334,10 @@ next_free (void)
          do
            c = gfc_next_char ();
          while (ISDIGIT(c));
+
+         if (!gfc_is_whitespace (c))
+           gfc_error_now ("Non-numeric character in statement label at %C");
+
        }
       else
        {
index 10f7c25..a312fd0 100644 (file)
@@ -1,3 +1,8 @@
+2006-01-02  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/24640
+       * gfortran.dg/label_2.f90: New test.
+
 2006-01-02  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
 
        * g++.dg/lookup/using12.C: Tighten error marker.
diff --git a/gcc/testsuite/gfortran.dg/label_2.f90 b/gcc/testsuite/gfortran.dg/label_2.f90
new file mode 100644 (file)
index 0000000..7b87f6c
--- /dev/null
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! PR fortran/24640.  We needed to check that whitespace follows
+! a statement label in free form.
+!
+program pr24640
+
+10: a=10   ! { dg-error "character in statement" }
+
+end program
+