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)
14 type(t), intent(out) :: x
15 end subroutine
16
17end
18