Subversion Repositories openrisc

! 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