gcc/testsuite/gfortran.dg/proc_decl_9.f90

   1 ! { dg-do run }
   2 ! PR33162 INTRINSIC functions as ACTUAL argument
   3 ! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
   4 real function t(x)
   5   real ::x
   6   t = x
   7 end function
   8
   9 program p
  10   implicit none
  11   intrinsic sin
  12   procedure(sin):: t
  13   if (t(1.0) /= 1.0) call abort
  14 end program