Program test
REAL, DIMENSION(10):: bait
bait = 1.
DO i = 1,10
WRITE(*,*) bait(i)
END DO
END program test