diff options
| author | Erik Edelmann <eedelman@gcc.gnu.org> | 2005-12-21 11:58:09 +0000 |
|---|---|---|
| committer | Erik Edelmann <eedelman@gcc.gnu.org> | 2005-12-21 11:58:09 +0000 |
| commit | 46833406d17c0f2d88dc370118ab0d1fcf6fb2b2 (patch) | |
| tree | dd30dab684b27cc73776c8eb415c22f759e356df /gcc/fortran/parse.c | |
| parent | 29c8f8c27b170130bc8c621703b12aad646803bd (diff) | |
| download | gcc-46833406d17c0f2d88dc370118ab0d1fcf6fb2b2.zip gcc-46833406d17c0f2d88dc370118ab0d1fcf6fb2b2.tar.gz gcc-46833406d17c0f2d88dc370118ab0d1fcf6fb2b2.tar.bz2 | |
re PR fortran/25423 (Error with nested where statements)
fortran/
2005-12-21 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25423
* parse.c (parse_where_block): break instead of "fall
through" after parsing nested WHERE construct.
testsuite/
2005-12-21 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25423
gfortran.dg/where_nested_1.f90: New.
From-SVN: r108902
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index f53a2e4..a0da448 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1668,7 +1668,7 @@ parse_where_block (void) case ST_WHERE_BLOCK: parse_where_block (); - /* Fall through */ + break; case ST_ASSIGNMENT: case ST_WHERE: |