URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
! Program to test the DIM intrinsic
|
! Program to test the DIM intrinsic
|
program intrinsic_dim
|
program intrinsic_dim
|
implicit none
|
implicit none
|
integer i, j
|
integer i, j
|
real(kind=4) :: r, s
|
real(kind=4) :: r, s
|
real(kind=8) :: p, q
|
real(kind=8) :: p, q
|
|
|
i = 1
|
i = 1
|
j = 4
|
j = 4
|
if (dim (i, j) .ne. 0) call abort
|
if (dim (i, j) .ne. 0) call abort
|
if (dim (j, i) .ne. 3) call abort
|
if (dim (j, i) .ne. 3) call abort
|
r = 1.0
|
r = 1.0
|
s = 4.0
|
s = 4.0
|
if (dim (r, s) .ne. 0.0) call abort
|
if (dim (r, s) .ne. 0.0) call abort
|
if (dim (s, r) .ne. 3.0) call abort
|
if (dim (s, r) .ne. 3.0) call abort
|
p = 1.0
|
p = 1.0
|
q = 4.0
|
q = 4.0
|
if (dim (p, q) .ne. 0.0) call abort
|
if (dim (p, q) .ne. 0.0) call abort
|
if (dim (q, p) .ne. 3.0) call abort
|
if (dim (q, p) .ne. 3.0) call abort
|
end program
|
end program
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.