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