program ex0707
implicit none
  integer, parameter :: row = 2
  integer, parameter :: col = 2
  integer :: m(row, col)
  integer r ! 用來指定row
  integer c ! 用來指定column
  data ((m(r,c), r=1, 2), c=1,2) /1,2,3,4/

  ! 依次輸出m(1,1), m(2,1), m(1,2), m(2,2)這4個數字,  
  write(*,"(I3,I3,/,I3,I3)") (( m(r,c), c=1,2 ), r=1,2)

  stop
end