COMPLEX*32 X, Y, F2PPECP X = (5.0Q0, 15.0Q0) Y = F2PPECP(X) PRINT *, 1 'VALUE RETURNED TO FORTRAN:', Y END
F2PPECP: PROC (X) OPTIONS(FORTRAN) RETURNS(COMPLEX FLOAT DEC(33)); DCL X COMPLEX FLOAT DEC(33); PUT SKIP LIST('PL/I ARG VALUE:', X); RETURN (X); END F2PPECP;