RosettaCodeData/Task/Loops-Increment-loop-index-within-loop-body/Fortran/loops-increment-loop-index-within-loop-body-1.f
2023-07-01 13:44:08 -04:00

4 lines
40 B
Fortran

do i=1,10
write(*,*) i
i=i+1
end do