blob: 51d823207ca01796c3640321fdb965e00666164d (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
*> { dg-do run }
*> { dg-output-file "group2/floating-point_literals.out" }
IDENTIFICATION DIVISION.
PROGRAM-ID. float-literal.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 D1 PIC 999V9999 DISPLAY .
01 D2 PIC 999V9999 COMP .
01 D3 PIC 999V9999 COMP-3 .
01 D4 PIC 999V9999 COMP-5 .
01 D5 FLOAT-SHORT .
01 D6 FLOAT-LONG .
01 D7 FLOAT-EXTENDED .
PROCEDURE DIVISION.
DISPLAY -555
DISPLAY -555.55
DISPLAY -555.55e206
DISPLAY 555
DISPLAY 555.55
DISPLAY 555.55e206
MOVE 333.33 TO D1
MOVE 333.33 TO D2
MOVE 333.33 TO D3
MOVE 333.33 TO D4
MOVE 333.33e20 TO D5
MOVE 333.33e100 TO D6
MOVE 333.33e200 TO D7
PERFORM DISPLAY-D.
ADD 222.22 TO D1
ADD 222.22 TO D2
ADD 222.22 TO D3
ADD 222.22 TO D4
ADD 222.22e20 TO D5
ADD 222.22e100 TO D6
ADD 222.22e200 TO D7
PERFORM DISPLAY-D.
GOBACK.
DISPLAY-D.
DISPLAY D1 SPACE
D2 SPACE
D3 SPACE
D4 SPACE
D5 SPACE
D6 SPACE
D7 .
END PROGRAM float-literal.
|
