REAL*16 X, Y, F2PPEFP X = 12.1Q0 Y = F2PPEFP(X) PRINT *, 1 'VALUE RETURNED TO FORTRAN:', Y END
F2PPEFP: PROC (X) OPTIONS(FORTRAN) RETURNS(FLOAT DEC(33)); DCL X FLOAT DEC(33); PUT SKIP LIST('PL/I ARG VALUE:', X); RETURN (X); END F2PPEFP;