2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / function_kinds_2.f90
blob8282f012783032d5c6d7d544f0f189d227d84509
1 ! Tests the fix for PR33334, in which the TYPE in the function
2 ! declaration cannot be legally accessed.
4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6 module types
7 implicit none
8 type t
9 integer :: i = 99
10 end type t
11 end module
13 module x
14 use types
15 interface
16 type(t) function bar() ! { dg-error "is not accessible" }
17 end function
18 end interface
19 end module