summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/arrayio.f90
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