16 program main
 15
 14   integer :: test(2,2,2)
 13   integer :: test2(2,2,2)
 12   integer :: i, j, k
 11
 10   do i =1, 2
  9     do j =1, 2
  8       do k =1, 2
  7         test(i, j,k) = i+j+k
  6       end do
  5     end do
  4   end do
  3   open(unit=1, file="lol.data")
  2   write (1, *)test
  1   close(1)
17    print *, test
  1
  2   open(unit=1, file="lol.data")
  3   read (1, *), test2
  4   close(1)
  5   print *, test2
  6 end program main

~
~