P2FPECP: PROC OPTIONS(MAIN);
  DCL P2FFECP ENTRY OPTIONS(FORTRAN)
      RETURNS(COMPLEX FLOAT DEC(33));
  DCL X       COMPLEX FLOAT DEC(33);
  DCL Y       COMPLEX FLOAT DEC(33);
  X = 5.0000000000000000000E0
      + 15.000000000000000000E0I;
  Y = P2FFECP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPECP;
 

FUNCTION P2FFECP ( ARG )
COMPLEX*32 P2FFECP
COMPLEX*32 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFECP = ARG
END