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


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

       *> { dg-do run }

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01  Y   PIC   S99V9(31).
       PROCEDURE        DIVISION.
           MOVE FUNCTION EXP ( 3 ) TO Y.
           IF Y NOT = 20.0855369231876677409285296545817
              DISPLAY Y
              END-DISPLAY
           END-IF.
           STOP RUN.