for opencobol benchmark test

TEST1.CBL

       IDENTIFICATION              DIVISION.
       PROGRAM-ID.                 TEST1.
       ENVIRONMENT                 DIVISION.
       CONFIGURATION               SECTION.
       INPUT-OUTPUT                SECTION.
       FILE-CONTROL.
      *
       DATA                        DIVISION.
       FILE                        SECTION.
      *
       WORKING-STORAGE             SECTION.
      *
       01  IDX1    PIC 9(10).
       01  IDX2    PIC 9(10).
      *
       01  STR1     PIC X(5000).
      *
       PROCEDURE                   DIVISION.
      *
      *
           PERFORM VARYING IDX1 FROM   1   BY  1
                   UNTIL ( IDX1 >  50000 )
               PERFORM VARYING IDX2 FROM 5000 BY  -1
                   UNTIL ( IDX2 <  2 )
                     CONTINUE
               END-PERFORM
           END-PERFORM
      *
           STOP RUN
           .
      *