function_kinds_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 22 行

! Tests the fix for PR33334, in which the TYPE in the function
! declaration cannot be legally accessed.
!
! Contributed by Tobias Burnus <[e-mail]>
!
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" } }