blob: d6fad1235f36ad0082e343cf32ae0ff179501066 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
module stuff
implicit none
type, bind(C) :: junk ! { dg-warning "may be inaccessible by the C companion" }
! Empty!
end type junk
end module stuff
! { dg-final { cleanup-modules "stuff" } }
|