URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_dummy.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Program to test passing intrinsic functions as actual arguments for`	`! Program to test passing intrinsic functions as actual arguments for`
`! dummy procedures.`	`! dummy procedures.`
`subroutine test (proc)`	`subroutine test (proc)`
`implicit none`	`implicit none`
`real proc`	`real proc`
`real a, b, c`	`real a, b, c`

`a = 1.0`	`a = 1.0`
`b = sin (a)`	`b = sin (a)`
`c = proc (a)`	`c = proc (a)`

`if (abs (b - c) .gt. 0.001) call abort`	`if (abs (b - c) .gt. 0.001) call abort`

`end subroutine`	`end subroutine`

`program dummy`	`program dummy`
`implicit none`	`implicit none`
`external test`	`external test`
`intrinsic sin`	`intrinsic sin`

`call test (sin)`	`call test (sin)`
`end program`	`end program`