RosettaCodeData/Task/Loops-For/Fortran/loops-for-2.f

7 lines
93 B
Forth

DO i = 1, 5
DO j = 1, i
WRITE(*, "(A)", ADVANCE="NO") "*"
END DO
WRITE(*,*)
END DO