gcc/testsuite/cobol.dg/group2/Offset_underflow.cob


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

       *> { dg-do run }
       *> { dg-xfail-run-if "" { *-*-* }  }
       *> { dg-output-file "group2/Offset_underflow.out" }

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01 X             PIC X(4) VALUE "abcd".
       01 I             PIC 9 VALUE 0.
       PROCEDURE        DIVISION.
           >>TURN EC-ALL CHECKING ON
           DISPLAY X(I:1) NO ADVANCING
           END-DISPLAY.
           STOP RUN.