Short floating-point number

REAL*4 X, Y, F2PPSFP
X = 5.0
Y = F2PPSFP(X)
PRINT *,
1 'VALUE RETURNED TO FORTRAN:', Y
END

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