diff options
-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; |