URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [arrayio.f90] - Rev 12
Compare with Previous | Blame | View Log
! Program to test array IO. Should print the numbers 1-20 in order
program arrayio
implicit none
integer, dimension(5, 4) :: a
integer i, j
do j=1,4
a(:, j) = (/ (i + (j - 1) * 5, i=1,5) /)
end do
write (*) a
end program