Index: extensions.at
===================================================================
RCS file: /cvsroot/open-cobol/open-cobol/tests/run.src/extensions.at,v
retrieving revision 1.5
diff -r1.5 extensions.at
704a705,751
> 
> 
> ## EXIT PERFORM  see ISO/IEC 1989:2002(E) §14.8.13 Format 5
> ## (= the same as in MF-LRM  "EXIT"  FORMAT 2 ... )
> 
> AT_SETUP([EXIT PERFORM])
> 
> AT_DATA([prog.cob], [
>        IDENTIFICATION   DIVISION.
>        PROGRAM-ID.      prog.
>        PROCEDURE        DIVISION.
>            PERFORM 2 TIMES
>              DISPLAY "OK" NO ADVANCING
>              EXIT PERFORM
>              DISPLAY "NOT REACHED"
>            END-PERFORM
>            STOP RUN.
> ])
> 
> AT_CHECK([${COMPILE} -o prog prog.cob])
> AT_CHECK([./prog], [0], [OK])
> 
> AT_CLEANUP
> 
> 
> ## EXIT PERFORM  see ISO/IEC 1989:2002(E) §14.8.13 Format 5
> ## (= the same as in MF-LRM  "EXIT"  FORMAT 2 ... )
> 
> AT_SETUP([EXIT PERFORM CYCLE])
> 
> AT_DATA([prog.cob], [
>        IDENTIFICATION   DIVISION.
>        PROGRAM-ID.      prog.
>        PROCEDURE        DIVISION.
>            PERFORM 2 TIMES
>              DISPLAY "OK" NO ADVANCING
>              EXIT PERFORM CYCLE
>              DISPLAY "NOT REACHED"
>            END-PERFORM
>            STOP RUN.
> ])
> 
> AT_CHECK([${COMPILE} -o prog prog.cob])
> AT_CHECK([./prog], [0], [OKOK])
> 
> AT_CLEANUP
>