diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-09-08 23:55:59 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-09-08 23:55:59 +0200 |
| commit | 6d2ae4727da2689156f177de963ccbc2e2a7e6b7 (patch) | |
| tree | 390964114567095e1a6a898a2a56079118eec3b3 /gcc/fortran | |
| parent | 9ff284256a499582521b987c242e0664de1126fb (diff) | |
| download | gcc-6d2ae4727da2689156f177de963ccbc2e2a7e6b7.zip gcc-6d2ae4727da2689156f177de963ccbc2e2a7e6b7.tar.gz gcc-6d2ae4727da2689156f177de963ccbc2e2a7e6b7.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5005340..f1974a3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 87737fc..67c7c96 100644 --- a/gcc/fortran/match.c +++ b/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); |