1! { dg-do compile } 2! { dg-options "-Wall" } 3! 4! PR 53655: [F03] "default initializer" warnings 5! 6! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 7 8type t 9end type t 10 11contains 12 13 subroutine foo(x) ! { dg-warning "defined but not used" } 14 type(t), intent(out) :: x 15 end subroutine 16 17end 18