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 /gcc/fortran/parse.c | |
| 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
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 1 |
1 files changed, 1 insertions, 0 deletions
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"); |