DO 999 I=1 10
        PRINT *,I
999   CONTINUE