program f10 implicit none INTEGER, dimension(2,3)::A = & reshape( & [2,3,4 , & 4,0,7], & shape(A) , order = [2,1]) integer :: i do i=LBOUND(A, 1),UBOUND(A, 1) print *,A(i,:) end do end program f10