fpcsrc/tests/tbs/tb0506.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %recompile }

uses ub0506;

var
  c : c2;
  i : integer;
begin
  c:=c2.create;
  c.value:=1;
  i:=c.value;
  if i<>2 then
    halt(1);
end.