#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;
|