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