3 ! PR 41766: [OOP] SELECT TYPE selector as actual argument with INTENT(INOUT)
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
13 type, extends(t1) :: t2
17 class(t1),allocatable :: cp
27 if (cp%a /= cp%b) call abort()
35 type(t2), intent(inout) :: f