aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/resolve.c
diff options
context:
space:
mode:
authorSteven G. Kargl <kargl@gcc.gnu.org>2007-02-03 01:01:06 +0000
committerSteven G. Kargl <kargl@gcc.gnu.org>2007-02-03 01:01:06 +0000
commit2e6524ba30702e1134eec27f8c68ddd7083fc87d (patch)
tree657d740d12e0c9e7f9311224caa3792a23c186b2 /gcc/fortran/resolve.c
parent86ad1da0d37954a467a6045b82fb4ba30ef39e23 (diff)
downloadgcc-2e6524ba30702e1134eec27f8c68ddd7083fc87d.zip
gcc-2e6524ba30702e1134eec27f8c68ddd7083fc87d.tar.gz
gcc-2e6524ba30702e1134eec27f8c68ddd7083fc87d.tar.bz2
re PR fortran/30683 ([4.2 only] internal compiler error: Segmentation fault)
2007-02-02 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/30683 * resolve.c (resolve_generic_f): Check for non-NULL sym. * gfortran.dg/interface_10.f90: New test. From-SVN: r121531
Diffstat (limited to 'gcc/fortran/resolve.c')
-rw-r--r--gcc/fortran/resolve.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 9a06a98..41e13b0 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -1315,7 +1315,7 @@ generic:
/* Last ditch attempt. See if the reference is to an intrinsic
that possesses a matching interface. 14.1.2.4 */
- if (!gfc_intrinsic_name (sym->name, 0))
+ if (sym && !gfc_intrinsic_name (sym->name, 0))
{
gfc_error ("There is no specific function for the generic '%s' at %L",
expr->symtree->n.sym->name, &expr->where);