PROGRAM TEST
         K = 0
         DO 20 I = 1,10
            DO 10 J = 1,10
               K = K + I * J
   10      CONTINUE
   20    CONTINUE
         PRINT *,I,J,K
      END