date and time created 90/06/25 15:34:13 by bostic

[unix-history] / usr / src / old / dbx / tests / mod / reals.mod

(*
* Test of reals and longreals.
*)

module main;
var
   x : longreal;
   y : real;

procedure f (x : real) : longreal;
begin
   return longfloat(3.14*x);
end f;

begin
   y := 3.0;
   x := f(y);
end main.