2 ! { dg-options "-c -Wall" }
16 SUBROUTINE sub1(x
) ! no warning, default initializer
17 type(t1
), intent(out
) :: x
20 SUBROUTINE sub2(x
) ! no warning, initialized
21 type(t2
), intent(out
) :: x
25 SUBROUTINE sub3(x
) ! { dg-warning "not set" }
26 type(t2
), intent(out
) :: x