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