program array_shape_05
    implicit none
    integer :: a(2)
    integer :: temp(5)
    integer :: i
    integer :: j

    i = 1
    j = i
    a = temp(i:j)
end program
