2 ! PR fortran/106121 - ICE in gfc_simplify_extends_type_of
3 ! Contributed by G.Steinmetz
9 class(t
) :: y
! { dg-error "dummy, allocatable or pointer" }
10 print *, extends_type_of (x
, y
)
18 class(t
) :: y
! { dg-error "dummy, allocatable or pointer" }
19 stop extends_type_of (x
, y
) ! { dg-error "STOP code" }