Long floating-point number

#pragma linkage (cpli,PLI)
#include <stdio.h>
main()
{
  void cpli(double);
  double x, y;
  x=12.5;
  cpli(x);  /* by value */
}
 

CPLI: PROC(ARG) 
       RETURNS (FLOAT BINARY(53));
    DCL ARG FLOAT BINARY(53);
⋮
    RETURN (34.0);
    END;
 

#pragma linkage (cpli,PLI)
#include <stdio.h>
main()
{
  void double cpli(double*);
  double x;
  x=12.5;
  cpli(&x);  /* by reference */

}
 

CPLI: PROC(ARG);
    DCL ARG FLOAT BINARY(53);
⋮
    END;