aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Loops-Downward-for/Fortran/loops-downward-for-1.f
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
40 B
Forth
Raw Permalink Blame History

DO i = 10, 0, -1
WRITE(*, *) i
END DO
Reference in a new issue View git blame Copy permalink