! -----------------------
! Example program
! Storage order in memory
! -----------------------
program test
  implicit none
  integer:: A(3,3)
  A(1,1) = 11
  A(1,2) = 12
  A(1,3) = 13
  A(2,1) = 21
  A(2,2) = 22
  A(2,3) = 23
  A(3,1) = 31
  A(3,2) = 32
  A(3,3) = 33
  ! see what is the storage order of A in memory;
  ! compiler knows best:
  print*,A
end program test