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