NAMEPARAMS|
begin

comment library A1, A5, A15;

real a, y;

real procedure check(y, val1, val2);
real val1, val2, y;
   begin
   y := 0.5;
   output(30, y); output(30, val1); writetext(30, [: should * be* 0.8[cc_]]);
   y := 1.0;
   output(30, y); output(30, val2); writetext(30, [: should * be* 1.0[cc_]]);
   check := 123456789.10;
   end check;

a := check(y, (y+y)/(1+y×y), (y+y+0.0)/(1.0+y×y));

output(30, a)

end
|
|