3 ! PR 66366: [OOP] ICE on invalid with non-allocatable CLASS variable
5 ! Contributed by Andrew Benson <abensonca@gmail.com>
11 procedure
:: interpolate
=> interp
15 class(t1d
) :: transfer
! { dg-error "must be allocatable or pointer" }
20 double precision function interp(self
)
22 class(t1d
), intent(inout
) :: self
26 double precision function fvb(self
)
28 class(tff
), intent(inout
) :: self
29 fvb
=self
%transfer
%interpolate() ! { dg-error "is not a member of" }