blob: f14453df9b2e67ae128cce9b011107cc92ba3b5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! Tests the fix for PR33334, in which the TYPE in the function
! declaration cannot be legally accessed.
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
!
module types
implicit none
type t
integer :: i = 99
end type t
end module
module x
use types
interface
type(t) function bar() ! { dg-error "is not accessible" }
end function
end interface
end module
! { dg-final { cleanup-modules "types x" } }
|
