| ! 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 |