Complex: two adjacent long floating-point numbers

COMPLEX*16 X, Y, F2PPLCP
X = (5.0D0, 15.0D0)
Y = F2PPLCP(X)
PRINT *,
1 'VALUE RETURNED TO FORTRAN:', Y
END
 

F2PPLCP: PROC (X) OPTIONS(FORTRAN)
      RETURNS(COMPLEX FLOAT DEC(16));
  DCL X       COMPLEX FLOAT DEC(16);
  PUT SKIP
      LIST('PL/I ARG VALUE:', X);
  RETURN (X);
END F2PPLCP;