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