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