1
     2
     3
     4
     5
     6
      D O U B L E P R E C I S I O N  DO 10I
      INT E GER                      I

      DO 10 I = 120
         DO 10 I = 1.20
   10 CONTINUE