RosettaCodeData/Task/Loops-Continue/Fortran/loops-continue-3.f

4 lines
75 B
FortranFixed
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
WRITE (6,1) (I,I = 1,10)
1 FORMAT (4(1X,I0,","),1X,I0)
END