blob: 1eec0bb59ce395e5af0cdfee872be3c61fce1c2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! 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
|