program array15
    implicit none
    integer :: x(3)
    x = 23
end program
