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

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