Test suite results for test file tbs/tb0282.pp

Test run data :

Test file "tbs/tb0282.pp" information:

t_id 507
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 936295.

Source:

{ Old file: tbs0334.pp }
{  }

{$ifdef fpc}{$mode objfpc}{$endif}

type
  tvarrec=record
    vpointer : pointer;
  end;
var
  r : tvarrec;
  b : boolean;
function Next: TVarRec;
begin
  next:=r;
end;

begin
  r.vpointer:=@b;
  { The result of next is loaded and a value is assigned }
  with Next do
   boolean(VPointer^) := true;
  if not b then
   writeln('Error with assigning to function result');
end.

Link to SVN view of tbs/tb0282.pp source.