diff options
| author | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-21 11:58:09 +0000 |
|---|---|---|
| committer | eedelman <eedelman@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-21 11:58:09 +0000 |
| commit | 2226345888ecbe934332f522097ad22c407e2efc (patch) | |
| tree | dd30dab684b27cc73776c8eb415c22f759e356df /gcc/fortran/parse.c | |
| parent | b3ded9f87912f68f2ecb1d8cc15aa58111ca08d0 (diff) | |
| download | gcc-2226345888ecbe934332f522097ad22c407e2efc.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108902 138bc75d-0d04-0410-961f-82ee72b054a4
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 f53a2e4e5c7..a0da4480b8b 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: |