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