P2FPEFP: PROC OPTIONS(MAIN);
  DCL P2FFEFP ENTRY OPTIONS(FORTRAN)
      RETURNS(FLOAT DEC(33));
  DCL X       FLOAT DEC(33);
  DCL Y       FLOAT DEC(33);
  X = 5.00000000000000000000000E0;
  Y = P2FFEFP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPEFP;
 

FUNCTION P2FFEFP ( ARG )
REAL*16 P2FFEFP
REAL*16 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFEFP = ARG
END