extern "PLI" {
double PLIFUNC( double );
    / C++ prototype /
}

int main() {
  double val,result;

  val=7.1;
  result=PLIFUNC(val);
  printf("val=%f, result=%f\n",
    val,result);
}
 

PLIFUNC: Proc(arg) options(reentrant)
    returns(float binary(53));
  Dcl arg float binary(53);
  Return (34.0);
  End;