Short floating-point number

Sample PL/I usage Fortran Function

Sample PL/I usage	Fortran Function
`P2FPSFP: PROC OPTIONS(MAIN); DCL P2FFSFP ENTRY OPTIONS(FORTRAN) RETURNS(FLOAT DEC(6)); DCL X FLOAT DEC(6); DCL Y FLOAT DEC(6); X = 5.0E0; Y = P2FFSFP(X); PUT SKIP LIST('VALUE RETURNED TO PL/I:', Y); END P2FPSFP;`	`FUNCTION P2FFSFP ( ARG ) REAL4 P2FFSFP REAL4 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG P2FFSFP = ARG END`

P2FPSFP: PROC OPTIONS(MAIN);
  DCL P2FFSFP ENTRY OPTIONS(FORTRAN)
      RETURNS(FLOAT DEC(6));
  DCL X       FLOAT DEC(6);
  DCL Y       FLOAT DEC(6);
  X = 5.0E0;
  Y = P2FFSFP(X);
  PUT SKIP
      LIST('VALUE RETURNED TO PL/I:', Y);
END P2FPSFP;

FUNCTION P2FFSFP ( ARG )
REAL*4 P2FFSFP
REAL*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
P2FFSFP = ARG
END