gcc/testsuite/gfortran.dg/typebound_proc_12.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR41258, where an ICE was caused by a search
   3 ! for a typebound procedure to resolve d%c%e
   4 !
   5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   6 !
   7   TYPE a
   8     TYPE(b), DIMENSION(:), POINTER :: c  ! { dg-error "type that has not been declared" }
   9   END TYPE
  10   TYPE(a), POINTER :: d
  11   CALL X(d%c%e)         ! { dg-error "before it is defined" }
  12 end