Program assignvalue_to_array
implicit none

integer::i
integer::a(5)
!integer::a(5)=(/(2*i,i=1,5)/)

DATA(a(i),i=2,4)/2,3,4/
write(*,*)(a(i),i=2,4)

stop
end