gcc/testsuite/gfortran.fortran-torture/compile/arrayio.f90

   1 ! Program to test array IO.  Should print the numbers 1-20 in order
   2 program arrayio
   3    implicit none
   4    integer, dimension(5, 4) :: a
   5    integer i, j
   6
   7    do j=1,4
   8       a(:, j) = (/ (i + (j - 1) * 5, i=1,5) /)
   9    end do
  10
  11    write (*) a
  12 end program