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 MERGE intrinsic
|
! Program to test the MERGE intrinsic
|
program intrinsic_merge
|
program intrinsic_merge
|
integer, dimension(3) :: a, b
|
integer, dimension(3) :: a, b
|
integer i
|
integer i
|
|
|
a = (/-1, 2, 3/)
|
a = (/-1, 2, 3/)
|
|
|
i = 5
|
i = 5
|
if (merge (-1, 1, i .gt. 3) .ne. -1) call abort
|
if (merge (-1, 1, i .gt. 3) .ne. -1) call abort
|
i = 1
|
i = 1
|
if (merge (-1, 1, i .ge. 3) .ne. 1) call abort
|
if (merge (-1, 1, i .ge. 3) .ne. 1) call abort
|
|
|
b = merge(a, 0, a .ge. 0)
|
b = merge(a, 0, a .ge. 0)
|
if (any (b .ne. (/0, 2, 3/))) call abort
|
if (any (b .ne. (/0, 2, 3/))) call abort
|
end program
|
end program
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.