P2FPLCP: PROC OPTIONS(MAIN);
  DCL P2FFLCP ENTRY OPTIONS(FORTRAN)
      RETURNS(COMPLEX FLOAT DEC(16));
  DCL X       COMPLEX FLOAT DEC(16);
  DCL Y       COMPLEX FLOAT DEC(16);
  X = 5.000000000000000E0
      + 15.00000000000000E0I;
  Y = P2FFLCP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPLCP;
 

FUNCTION P2FFLCP ( ARG )
COMPLEX*16 P2FFLCP
COMPLEX*16 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFLCP = ARG
END