From: Steven Bosscher <steven@gcc.gnu.org>
Date: Sun, 7 May 2006 16:33:30 +0000 (+0000)
Subject: re PR fortran/27378 ([4.1 only] ICE on unexpected ELSE statement)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=31909d9ff8c915891c23c2a5e455b075ba856845;p=gcc.git

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
---

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  <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 Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	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");