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
+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-03 Diego Novillo <dnovillo@google.com>
* f95-lang.c (lang_hooks): Remove const qualifier.
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;
+2009-09-05 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/41258
+ * gfortran.dg/typebound_proc_12.f90 : New test.
+
2009-09-04 Alexandre Oliva <aoliva@redhat.com>
PR debug/41225
--- /dev/null
+! { dg-do compile }
+! Test the fix for PR41258, where an ICE was caused by a search
+! for a typebound procedure to resolve d%c%e
+!
+! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
+!
+ TYPE a
+ TYPE(b), DIMENSION(:), POINTER :: c ! { dg-error "type that has not been declared" }
+ END TYPE
+ TYPE(a), POINTER :: d
+ CALL X(d%c%e) ! { dg-error "before it is defined" }
+end