1! { dg-do compile } 2! { dg-options "-c -Wall" } 3! 4! PR fortran/42360 5! 6MODULE m 7 TYPE :: t1 8 INTEGER :: a = 42, b 9 END TYPE 10 11 TYPE :: t2 12 INTEGER :: a, b 13 END TYPE 14 15CONTAINS 16 SUBROUTINE sub1(x) ! no warning, default initializer 17 type(t1), intent(out) :: x 18 END SUBROUTINE 19 20 SUBROUTINE sub2(x) ! no warning, initialized 21 type(t2), intent(out) :: x 22 x%a = 42 23 END SUBROUTINE 24 25 SUBROUTINE sub3(x) ! { dg-warning "not set" } 26 type(t2), intent(out) :: x 27 END SUBROUTINE 28END MODULE 29