11573Srgrimes! { dg-do compile }
21573Srgrimes!
31573Srgrimes! PR fortran/34689
41573Srgrimes!
51573Srgrimes! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90)
61573Srgrimes! was rejected because the intent check missed a FL_FUNCTION
71573Srgrimes! for the result variable.
81573Srgrimes!
91573Srgrimesfunction test()
101573Srgrimes  implicit none
111573Srgrimes  integer :: test
121573Srgrimes  interface
131573Srgrimes    subroutine foo(a)
141573Srgrimes      integer, intent(inout) :: a
151573Srgrimes    end subroutine foo
161573Srgrimes  end interface
171573Srgrimes  call foo(test)
181573Srgrimesend function test
191573Srgrimes