P2FPSCP: PROC OPTIONS(MAIN);
  DCL P2FFSCP ENTRY OPTIONS(FORTRAN)
      RETURNS(COMPLEX FLOAT DEC(6));
  DCL X       COMPLEX FLOAT DEC(6);
  DCL Y       COMPLEX FLOAT DEC(6);
  X = 5.0E0 + 15.0E0I;
  Y = P2FFSCP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPSCP;
 

FUNCTION P2FFSCP ( ARG )
COMPLEX*8 P2FFSCP
COMPLEX*8 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFSCP = ARG
END