diff options
| author | Steven Bosscher <steven@gcc.gnu.org> | 2006-05-07 16:33:30 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-05-07 16:33:30 +0000 |
| commit | 31909d9ff8c915891c23c2a5e455b075ba856845 (patch) | |
| tree | 0cfcfb66ca9aadb499693191ac21ac5b2318d058 | |
| parent | d0bd09f613cb8e84c6ee5319b58faa526014b4ef (diff) | |
| download | gcc-31909d9ff8c915891c23c2a5e455b075ba856845.zip gcc-31909d9ff8c915891c23c2a5e455b075ba856845.tar.gz gcc-31909d9ff8c915891c23c2a5e455b075ba856845.tar.bz2 | |
re PR fortran/27378 ([4.1 only] ICE on unexpected ELSE statement)
PR fortran/27378
* parse.c (next_statement): Add check to avoid an ICE when
gfc_current_locus.lb is not set.
From-SVN: r113603
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e76b07e..764f9e9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-05-07 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR fortran/27378 + * parse.c (next_statement): Add check to avoid an ICE when + gfc_current_locus.lb is not set. + 2006-05-07 Tobias Schlter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/27457 diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 5fb9ce1..2b04904 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -624,6 +624,7 @@ next_statement (void) if (gfc_at_eol ()) { if (gfc_option.warn_line_truncation + && gfc_current_locus.lb && gfc_current_locus.lb->truncated) gfc_warning_now ("Line truncated at %C"); |