gcc/testsuite/gfortran.dg/class_55.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 55983: [4.7/4.8 Regression] ICE in find_typebound_proc_uop, at fortran/class.c:2711
   4 !
   5 ! Contributed by Sylwester Arabas <slayoo@staszic.waw.pl>
   6
   7   type :: mpdata_t
   8     class(bcd_t), pointer :: bcx, bcy   ! { dg-error "has not been declared" }
   9   end type
  10   type(mpdata_t) :: this
  11   call this%bcx%fill_halos()            ! { dg-error "is being used before it is defined" }
  12 end