! Program to test passing intrinsic functions as actual arguments for | |
! dummy procedures. | |
subroutine test (proc) | |
implicit none | |
real proc | |
real a, b, c | |
a = 1.0 | |
b = sin (a) | |
c = proc (a) | |
if (abs (b - c) .gt. 0.001) call abort | |
end subroutine | |
program dummy | |
implicit none | |
external test | |
intrinsic sin | |
call test (sin) | |
end program | |