INTEGER*2 X, Y, F2PP16I X = 5 Y = F2PP16I(X) PRINT *, 1 'VALUE RETURNED TO FORTRAN:', Y END
F2PP16I: PROC (X) OPTIONS(FORTRAN) RETURNS(FIXED BIN(15)); DCL X FIXED BIN(15); PUT SKIP LIST('PL/I ARG VALUE:', X); RETURN (X); END F2PP16I;