TP3/shell/tests/fixtures/t97_varreal.pas

program t97_varreal;

{ t97 -- VAR REAL parameters.  CALC.INC's Evaluate takes `var Value : Real'
  and assigns a real function result into it.  This fixture checks a constant
  store and a six-byte copy through the two-byte address slot, using record
  fields as actual parameters. }

type
  R = record
    V : real;
  end;

var
  A, B : R;
  S : string[10];

procedure setv (var Z : real);
begin
  Z := 3
end;

procedure copyv (var D : real; var Src : real);
begin
  D := Src
end;

begin
  A.V := 0;
  B.V := 0;
  setv (B.V);
  copyv (A.V, B.V);
  Str (A.V : 0 : 0, S);
  writeln (S)
end.