URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_dummy.f90] - Blame information for rev 707

Go to most recent revision | Details | Compare with Previous | View Log


! 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
 

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_dummy.f90] - Blame information for rev 707