PR fortran/27378

	* parse.c (next_statement): Add check to avoid an ICE when
	gfc_current_locus.lb is not set.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113603 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e76b07e..764f9e9 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 5fb9ce1..2b04904 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");