diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-06-04 12:35:00 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-06-04 12:35:00 +0200 |
| commit | 29405f9481f118a1a8a02873ccef08b5b21b80ef (patch) | |
| tree | 80d91455a2f217135699ed8ace4b1fa5b6ca86d8 /gcc/fortran/match.c | |
| parent | ab21e2722dbe3f0677fcd2f8acc6ce078ae09a94 (diff) | |
| download | gcc-29405f9481f118a1a8a02873ccef08b5b21b80ef.zip gcc-29405f9481f118a1a8a02873ccef08b5b21b80ef.tar.gz gcc-29405f9481f118a1a8a02873ccef08b5b21b80ef.tar.bz2 | |
match.c (match_forall_iterator): Don't immediately give error if '=' is not followed by an expression.
fortran/
* match.c (match_forall_iterator): Don't immediately give error if '='
is not followed by an expression.
testsuite/
* gfortran.dg/forall_1.f90: New test.
Co-Authored-By: Erik Edelmann <erik.edelmann@iki.fi>
From-SVN: r100580
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 741e1a3..0592b1e 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -3084,9 +3084,7 @@ match_forall_iterator (gfc_forall_iterator ** result) } m = gfc_match_expr (&iter->start); - if (m == MATCH_NO) - goto syntax; - if (m == MATCH_ERROR) + if (m != MATCH_YES) goto cleanup; if (gfc_match_char (':') != MATCH_YES) |