gcc/testsuite/cobol.dg/group2/Offset_overflow.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_overflow.out" }

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