fortran/
PR fortran/23765
* match.c (gfc_match_common): Remove unnecessary / wrong special
cases for end-of-statement.
testsuite/
PR fortran/23765
* gfortran.dg/common_6.f90: New test.
From-SVN: r104046
+2005-09-08 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/23765
+ * match.c (gfc_match_common): Remove unnecessary / wrong special
+ cases for end-of-statement.
+
2005-09-08 Janne Blomqvist <jblomqvi@cc.hut.fi>
* gfortran.texi: Add section about implemented F2003 features.
as = NULL;
- if (gfc_match_eos () == MATCH_YES)
- goto syntax;
-
for (;;)
{
m = match_common_name (name);
}
/* Grab the list of symbols. */
- if (gfc_match_eos () == MATCH_YES)
- goto done;
-
for (;;)
{
m = gfc_match_symbol (&sym, 0);
+2005-09-08 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/23765
+ * gfortran.dg/common_6.f90: New test.
+
2005-09-08 Mark Mitchell <mark@codesourcery.com>
PR c++/23691
--- /dev/null
+! { dg-do compile }
+! PR 23765 : We used to incorrectly accept common blocks with no symbols
+common ! { dg-error "Syntax error" }
+common // ! { dg-error "Syntax error" }
+common /a/ ! { dg-error "Syntax error" }
+common /b/x/c/ ! { dg-error "Syntax error" }
+common y/d/ ! { dg-error "Syntax error" }
+common /e//f/ ! { dg-error "Syntax error" }
+common ///g/ ! { dg-error "Syntax error" }
+end