1 2 3 4 5 6 7 8
int dimension(5)::test int::i do i=0,4 test(i)=i end do do i=0,4 print*,test(i) end do