URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [nestcons.f90] - Rev 742
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test array expressions in array constructors.
program nestcons
implicit none
integer, parameter :: w1(3)= (/ 5, 6, 7/)
integer, dimension(6) :: w2
w2 = (/ 1, 2, w1(3:1:-1), 3 /)
if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) call abort
end
Go to most recent revision | Compare with Previous | Blame | View Log