gcc/testsuite/gfortran.dg/intent_out_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34689
   4 !
   5 ! The following (cf. libgomp.fortran/appendix-a/a.33.3.f90)
   6 ! was rejected because the intent check missed a FL_FUNCTION
   7 ! for the result variable.
   8 !
   9 function test()
  10   implicit none
  11   integer :: test
  12   interface
  13     subroutine foo(a)
  14       integer, intent(inout) :: a
  15     end subroutine foo
  16   end interface
  17   call foo(test)
  18 end function test