diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-12-12 22:12:00 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-12-12 22:12:00 +0100 |
| commit | 23acf4d41122152f857318a67d63a5f4e8f1cb32 (patch) | |
| tree | b7dd2268617c982d5207fe5c130a6b43ca3e4668 /gcc/fortran/match.c | |
| parent | c3d003d207ac27d639e18010dae6b7087ead1beb (diff) | |
| download | gcc-23acf4d41122152f857318a67d63a5f4e8f1cb32.zip gcc-23acf4d41122152f857318a67d63a5f4e8f1cb32.tar.gz gcc-23acf4d41122152f857318a67d63a5f4e8f1cb32.tar.bz2 | |
re PR fortran/18869 (multiple common blocks in a single line rejected)
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
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 210de97..cf0c255 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2306,12 +2306,14 @@ gfc_match_common (void) 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; } |