3 ! PR 44541: [OOP] wrong code for polymorphic variable with INTENT(OUT)/Alloc w/ MOLD
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
13 type, extends(t) :: t2
22 if (y%a/=1 .or. y%b/=3) call abort()
26 call intent_out_unused (y)
27 if (y%a/=1 .or. y%b/=3) call abort()
31 subroutine intent_out(x)
32 class(t), intent(out) :: x
35 if (x%a/=1 .or. x%b/=3) call abort()
39 subroutine intent_out_unused(x)
40 class(t), intent(out) :: x