re PR fortran/23765 (segfault with syntactically wrong common declaration)

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

gcc/fortran/ChangeLog

+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.

gcc/fortran/match.c

@@ -2241,9 +2241,6 @@ gfc_match_common (void)
 
   as = NULL;
 
-  if (gfc_match_eos () == MATCH_YES)
-    goto syntax;
-
   for (;;)
     {
       m = match_common_name (name);
@@ -2273,9 +2270,6 @@ gfc_match_common (void)
 	}
 
       /* Grab the list of symbols.  */
-      if (gfc_match_eos () == MATCH_YES)
-	goto done;
-  
       for (;;)
 	{
 	  m = gfc_match_symbol (&sym, 0);

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/common_6.f90

+! { 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