#pragma linkage(PLIFUNC, PLI)
double PLIFUNC( double );     / C prototype /

int main()
{
  double val,result;

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

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

  Return (34.0);
  End;