blob: 09303a292c99a9c458855b5116d8cbc552f0e709 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
*> { dg-do run }
*> { dg-output-file "group2/PACKED-DECIMAL_arithmetic.out" }
IDENTIFICATION DIVISION.
PROGRAM-ID. prog.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X PIC 99 USAGE PACKED-DECIMAL VALUE 0.
01 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9.
PROCEDURE DIVISION.
COMPUTE X = 1
END-COMPUTE.
DISPLAY X
END-DISPLAY.
COMPUTE X = Y
END-COMPUTE.
DISPLAY X
END-DISPLAY.
COMPUTE X = X + Y
END-COMPUTE.
DISPLAY X
END-DISPLAY.
STOP RUN.
|
