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;