4.3BSD - /usr/src/ucb/dbx/tests/pc/reals.p

   1: (*
   2:  * Test of reals.
   3:  *)
   4: 
   5: program realtest (input, output);
   6: var
   7:     x : real;
   8:     y : real;
   9: 
  10: function f (x : real) : real;
  11: begin
  12:     f := 3.14*x;
  13: end;
  14: 
  15: begin
  16:     y := 3.0;
  17:     x := f(y);
  18: end.