From 31909d9ff8c915891c23c2a5e455b075ba856845 Mon Sep 17 00:00:00 2001
From: Steven Bosscher <steven@gcc.gnu.org>
Date: Sun, 7 May 2006 16:33:30 +0000
Subject: 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/parse.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gcc/fortran/parse.c')

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");
 
-- 
cgit v1.1