program arrays_reshape_26
    implicit none
    integer, parameter :: n = 2
    integer, parameter :: arr(4) = [1,2,3,4]
    real :: b(2,2) = reshape(arr, [n,n])

    if (b(1,1) /= 1.0) error stop "Mismatch at b(1,1)"
    if (b(2,1) /= 2.0)  error stop "Mismatch at b(2,1)"
    if (b(1,2) /= 3.0) error stop "Mismatch at b(1,2)"
    if (b(2,2) /= 4.0)  error stop "Mismatch at b(2,2)"
end program arrays_reshape_26
