gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_dummy.f90

   1 ! Program to test passing intrinsic functions as actual arguments for
   2 ! dummy procedures.
   3 subroutine test (proc)
   4    implicit none
   5    real proc
   6    real a, b, c
   7
   8    a = 1.0
   9    b = sin (a)
  10    c = proc (a)
  11
  12    if (abs (b - c) .gt. 0.001) call abort
  13
  14 end subroutine
  15
  16 program dummy
  17    implicit none
  18    external test
  19    intrinsic sin
  20
  21    call test (sin)
  22 end program
  23