gcc/
PR fortran/18869
* match.c (gfc_match_common): Skip whitespace.
testsuite/
PR fortran/18869
* gfortran.dg/common_1.f90: New test.
From-SVN: r92064
+2004-12-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/18869
+ * match.c (gfc_match_common): Skip whitespace.
+
2004-12-12 Steven G. Kargl <kargls@comcast.net>
PR fortran/16581
as = NULL;
}
+ gfc_gobble_whitespace ();
if (gfc_match_eos () == MATCH_YES)
goto done;
if (gfc_peek_char () == '/')
break;
if (gfc_match_char (',') != MATCH_YES)
goto syntax;
+ gfc_gobble_whitespace ();
if (gfc_peek_char () == '/')
break;
}
+2004-12-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/18869
+ * gfortran.dg/common_1.f90: New test.
+
2004-12-12 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
--- /dev/null
+! { dg-do compile }
+! tests various allowed variants of the common statement
+! inspired by PR 18869
+
+! blank common block
+ common x
+ common y, z
+ common // xx
+
+! one named common block on a line
+ common /a/ e
+
+! appending to a common block
+ common /a/ g
+
+! several named common blocks on a line
+ common /foo/ a, /bar/ b ! note 'a' is also the name of the
+ ! above common block
+ common /baz/ c /foobar/ d, /bazbar/ f
+
+ end