Extended floating-point number

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

CPLI: PROC(ARG) RETURNS (FLOAT BIN(109));
    DCL ARG FLOAT BIN(109);
⋮
    RETURN (ARG);
    END;
 

#pragma linkage (cpli,PLI)
#include <stdio.h>
main()
{
  long double cpli(long double*);
  long double x, y;
  x=12.01.../* many digits */;
  y=cpli(&x);     /* by reference */
}
 

CPLI: PROC(ARG)
    RETURNS (FLOAT BIN(109));
    DCL ARG FLOAT BIN(109);
⋮
    RETURN (ARG);
    END;