From 31909d9ff8c915891c23c2a5e455b075ba856845 Mon Sep 17 00:00:00 2001 From: Steven Bosscher Date: Sun, 7 May 2006 16:33:30 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/parse.c | 1 + 2 files changed, 7 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e76b07ed10b..764f9e94f5f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-05-07 Francois-Xavier Coudert + + 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 Schlüter PR fortran/27457 diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 5fb9ce12457..2b04904a77c 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"); -- 2.30.2