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