URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! Program to test array expressions in array constructors.
|
! Program to test array expressions in array constructors.
|
program nestcons
|
program nestcons
|
implicit none
|
implicit none
|
integer, parameter :: w1(3)= (/ 5, 6, 7/)
|
integer, parameter :: w1(3)= (/ 5, 6, 7/)
|
integer, dimension(6) :: w2
|
integer, dimension(6) :: w2
|
|
|
w2 = (/ 1, 2, w1(3:1:-1), 3 /)
|
w2 = (/ 1, 2, w1(3:1:-1), 3 /)
|
if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) call abort
|
if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) call abort
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.