3 ! PR 58355: [4.7/4.8/4.9 Regression] [F03] ICE with TYPE, EXTENDS before parent TYPE defined
5 ! Contributed by Andrew Benson <abensonca@gmail.com>
10 type, extends(t1
) :: t2
! { dg-error "has not been previously defined" }
16 ! { dg-final { cleanup-modules "ct" } }