program main
   integer,allocatable:: x(:)
   x = [1,2,3,4]
   print *,x
end program

