diff options
author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-09-25 09:19:36 +0000 |
---|---|---|
committer | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-09-25 09:19:36 +0000 |
commit | 56fa5697741bd42d3e7e58c36dd3c5c6e8c19543 (patch) | |
tree | 972782203d96d93d821c7b29608911b2c394d501 | |
parent | 153981e08ef5d910c19e5b145231564f69e426bf (diff) |
PR fortran/21203
* error.c (show_loci): No need to risk an ICE to output a
slightly nicer error message.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@117191 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/error.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4a620fdc413..2e8a11f7b20 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 435fc16a36f..f63e41634a9 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; |