P2FPSFP: PROC OPTIONS(MAIN);
  DCL P2FFSFP ENTRY OPTIONS(FORTRAN)
      RETURNS(FLOAT DEC(6));
  DCL X       FLOAT DEC(6);
  DCL Y       FLOAT DEC(6);
  X = 5.0E0;
  Y = P2FFSFP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPSFP;
 

FUNCTION P2FFSFP ( ARG )
REAL*4 P2FFSFP
REAL*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFSFP = ARG
END