Return to reals.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / pc

BSD 4.3

(*
 * Test of reals.
 *)

program realtest (input, output);
var
    x : real;
    y : real;

function f (x : real) : real;
begin
    f := 3.14*x;
end;

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.