int dimension(5)::test
int::i
do i=0,4
test(i)=i
end do
do i=0,4
print*,test(i)
end do