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 e76b07ed10bc7cee6de8940e097cd9f1cb87693f..764f9e94f5f5fd9cf6b06e6b4a7dccdcc3d702fe 100644 (file)
--- 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\81üter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/27457

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 5fb9ce12457d035d4f5be7025c00791c370bd234..2b04904a77c4452d0b24e795e54b2f92db492a90 100644 (file)
--- 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");