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 "is a type that 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" } 12end 13