From b2acf594606e2ad30b325e7dde4380285ed23fdb Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 5 Sep 2009 14:20:51 +0000 Subject: re PR fortran/41258 (internal compiler error: in find_typebound_proc_uop, at fortran/symbol.c:4575) 2009-09-05 Paul Thomas PR fortran/41258 * primary.c (gfc_match_varspec): Do not look for typebound procedures unless the derived type has a f2k_derived namespace. 2009-09-05 Paul Thomas PR fortran/41258 * gfortran.dg/typebound_proc_12.f90 : New test. From-SVN: r151451 --- gcc/fortran/primary.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/primary.c') diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 267819c..f25de23 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1783,7 +1783,11 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, if (m != MATCH_YES) return MATCH_ERROR; - tbp = gfc_find_typebound_proc (sym, &t, name, false, &gfc_current_locus); + if (sym->f2k_derived) + tbp = gfc_find_typebound_proc (sym, &t, name, false, &gfc_current_locus); + else + tbp = NULL; + if (tbp) { gfc_symbol* tbp_sym; -- cgit v1.1