diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2009-09-05 14:20:51 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2009-09-05 14:20:51 +0000 |
| commit | b2acf594606e2ad30b325e7dde4380285ed23fdb (patch) | |
| tree | 42140c8a45a6377d974fed999e12f6737792497c /gcc/fortran/primary.c | |
| parent | 896237cdcd1172e00b0b672ce846aa5c885f3c9e (diff) | |
| download | gcc-b2acf594606e2ad30b325e7dde4380285ed23fdb.zip gcc-b2acf594606e2ad30b325e7dde4380285ed23fdb.tar.gz gcc-b2acf594606e2ad30b325e7dde4380285ed23fdb.tar.bz2 | |
re PR fortran/41258 (internal compiler error: in find_typebound_proc_uop, at fortran/symbol.c:4575)
2009-09-05 Paul Thomas <pault@gcc.gnu.org>
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 <pault@gcc.gnu.org>
PR fortran/41258
* gfortran.dg/typebound_proc_12.f90 : New test.
From-SVN: r151451
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 6 |
1 files changed, 5 insertions, 1 deletions
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; |