gcc/testsuite/gfortran.fortran-torture/compile/actual.f90

   1 module modull
   2
   3 contains
   4
   5 function fun( a )
   6   real, intent(in) :: a
   7   real :: fun
   8   fun = a
   9 end function fun
  10
  11 end module modull
  12
  13
  14
  15 program t5
  16
  17 use modull
  18
  19 real :: a, b
  20
  21 b = foo( fun, a )
  22
  23 contains
  24
  25 function foo( f, a )
  26   real, intent(in) :: a
  27   interface
  28     function f( x )
  29       real, intent(in) :: x
  30       real :: f
  31     end function f
  32   end interface
  33   real :: foo
  34
  35   foo = f( a )
  36 end function foo
  37
  38 end program t5