diff options
author | Tobias Schluter <tobias.schlueter@physik.uni-muenchen.de> | 2006-09-25 09:19:36 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-09-25 09:19:36 +0000 |
commit | fc29d5c4e82adbf041939a9519643707a85778c4 (patch) | |
tree | 972782203d96d93d821c7b29608911b2c394d501 /gcc | |
parent | 3c4f2df1c6b24ce271cb80b40fb5ec6f97e746c6 (diff) | |
download | gcc-fc29d5c4e82adbf041939a9519643707a85778c4.zip gcc-fc29d5c4e82adbf041939a9519643707a85778c4.tar.gz gcc-fc29d5c4e82adbf041939a9519643707a85778c4.tar.bz2 |
re PR fortran/21203 (gfortran doesn't work on targets/variants without two floating point types)
PR fortran/21203
* error.c (show_loci): No need to risk an ICE to output a
slightly nicer error message.
From-SVN: r117191
Diffstat (limited to 'gcc')
-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 4a620fd..2e8a11f 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 435fc16..f63e416 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; |