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

4 lines
75 B
Fortran

WRITE (6,1) (I,I = 1,10)
1 FORMAT (4(1X,I0,","),1X,I0)
END