7 lines
82 B
FortranFixed
7 lines
82 B
FortranFixed
|
INTEGER :: i = 0
|
||
|
|
DO
|
||
|
|
i = i + 1
|
||
|
|
WRITE(*, *) i
|
||
|
|
IF (MOD(i, 6) == 0) EXIT
|
||
|
|
END DO
|