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;