program TEST
implicit none
integer, dimension(4, 2) :: tab
integer :: i, j, k
k = 0
do i=1,4
do j=1,2
tab(i, j) = k
k = k + 1
end do
end do
do j=1,4
write(*, *) tab(j, :)
end do
end
cHJvZ3JhbSBURVNUCmltcGxpY2l0IG5vbmUKaW50ZWdlciwgZGltZW5zaW9uKDQsIDIpIDo6IHRhYgppbnRlZ2VyIDo6IGksIGosIGsKCmsgPSAwCmRvIGk9MSw0CglkbyBqPTEsMgoJCXRhYihpLCBqKSA9IGsKCQlrID0gayArIDEKCWVuZCBkbwplbmQgZG8KCmRvIGo9MSw0Cgl3cml0ZSgqLCAqKSB0YWIoaiwgOikKZW5kIGRvCgplbmQK