!This program prints numbers from 1 to 10, with each number on a separate line
!Program Disp_1to10
integer i=0
do 10 i=1,10
print *, i
10 continue
end
!end