From 111105d411000fa9c8f2eebbf32a35563d178e1b Mon Sep 17 00:00:00 2001
From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 25 Sep 2006 09:19:36 +0000
Subject: [PATCH] PR fortran/21203 * error.c (show_loci): No need
to risk an ICE to output a slightly nicer error message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117191 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/fortran/ChangeLog | 6 ++++++
gcc/fortran/error.c | 2 +-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4a620fdc4139..2e8a11f7b20a 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-09-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR fortran/21203
+ * error.c (show_loci): No need to risk an ICE to output a
+ slightly nicer error message.
+
2006-09-19 Paul Thomas <pault@gcc.gnu.org>
Steven Bosscher <steven@gcc.gnu.org>
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index 435fc16a36ff..f63e41634a99 100644
--- a/gcc/fortran/error.c
+++ b/gcc/fortran/error.c
@@ -199,7 +199,7 @@ show_loci (locus * l1, locus * l2)
{
int offset, flag, i, m, c1, c2, cmax;
- if (l1 == NULL)
+ if (l1 == NULL || l1->lb == NULL)
{
error_printf ("<During initialization>\n");
return;
--
GitLab