1! Program to test passing intrinsic functions as actual arguments for 2! dummy procedures. 3subroutine 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) STOP 1 13 14end subroutine 15 16program dummy 17 implicit none 18 external test 19 intrinsic sin 20 21 call test (sin) 22end program 23 24