mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-Do-while/Fortran/loops-do-while-1.f

7 lines
82 B
Fortran
Raw Permalink Blame History

INTEGER :: i = 0
DO
i = i + 1
WRITE(*, *) i
IF (MOD(i, 6) == 0) EXIT
END DO
Reference in New Issue View Git Blame Copy Permalink