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