arrayio.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 13 行

! 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