mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 10:00:31 +02:00
* checks for bug #1365
This commit is contained in:
parent
05c76ffa72
commit
25a41ffa44
55
tests/webtbf/tw1365.pp
Normal file
55
tests/webtbf/tw1365.pp
Normal file
@ -0,0 +1,55 @@
|
||||
{$mode fpc}
|
||||
program test_const_objects;
|
||||
|
||||
type
|
||||
tobj1 = object
|
||||
x,y : integer;
|
||||
end;
|
||||
|
||||
tobj2 = object(tobj1)
|
||||
z : integer;
|
||||
constructor init(ax,ay,az : integer);
|
||||
procedure display; virtual;
|
||||
end;
|
||||
|
||||
tobj3 = object(tobj2)
|
||||
t : integer;
|
||||
constructor init(ax,ay,az,at : integer);
|
||||
procedure display; virtual;
|
||||
end;
|
||||
|
||||
constructor tobj2.init(ax,ay,az : integer);
|
||||
begin
|
||||
x:=ax;
|
||||
y:=ay;
|
||||
z:=az;
|
||||
end;
|
||||
|
||||
procedure tobj2.display;
|
||||
begin
|
||||
Writeln(x,' ',y,' ',z);
|
||||
end;
|
||||
|
||||
constructor tobj3.init(ax,ay,az,at : integer);
|
||||
begin
|
||||
x:=ax;
|
||||
y:=ay;
|
||||
z:=az;
|
||||
t:=at;
|
||||
end;
|
||||
|
||||
procedure tobj3.display;
|
||||
begin
|
||||
Writeln(x,' ',y,' ',z,' ',t);
|
||||
end;
|
||||
|
||||
const
|
||||
Obj1 : Tobj1 = (x : 1; y : 2);
|
||||
Obj2 : TObj2 = (x : 3; y : 4; z : 5);
|
||||
Obj3 : Tobj3 = (x : 6; y : 7; z : 8; t : 9);
|
||||
|
||||
begin
|
||||
Obj2.Display;
|
||||
Obj3.display;
|
||||
end.
|
||||
|
66
tests/webtbs/tw1365.pp
Normal file
66
tests/webtbs/tw1365.pp
Normal file
@ -0,0 +1,66 @@
|
||||
{$mode tp}
|
||||
|
||||
program test_const_objects;
|
||||
|
||||
const
|
||||
top2_display_called : integer = 0;
|
||||
top3_display_called : integer = 0;
|
||||
|
||||
type
|
||||
tobj1 = object
|
||||
x,y : integer;
|
||||
end;
|
||||
|
||||
tobj2 = object(tobj1)
|
||||
z : integer;
|
||||
constructor init(ax,ay,az : integer);
|
||||
procedure display; virtual;
|
||||
end;
|
||||
|
||||
tobj3 = object(tobj2)
|
||||
t : integer;
|
||||
constructor init(ax,ay,az,at : integer);
|
||||
procedure display; virtual;
|
||||
end;
|
||||
|
||||
constructor tobj2.init(ax,ay,az : integer);
|
||||
begin
|
||||
x:=ax;
|
||||
y:=ay;
|
||||
z:=az;
|
||||
end;
|
||||
|
||||
procedure tobj2.display;
|
||||
begin
|
||||
Writeln(x,' ',y,' ',z);
|
||||
inc(top2_display_called);
|
||||
end;
|
||||
|
||||
constructor tobj3.init(ax,ay,az,at : integer);
|
||||
begin
|
||||
x:=ax;
|
||||
y:=ay;
|
||||
z:=az;
|
||||
t:=at;
|
||||
end;
|
||||
|
||||
procedure tobj3.display;
|
||||
begin
|
||||
Writeln(x,' ',y,' ',z,' ',t);
|
||||
inc(top3_display_called);
|
||||
end;
|
||||
|
||||
const
|
||||
Obj1 : Tobj1 = (x : 1; y : 2);
|
||||
Obj2 : TObj2 = (x : 3; y : 4; z : 5);
|
||||
Obj3 : Tobj3 = (x : 6; y : 7; z : 8; t : 9);
|
||||
Obj3b : Tobj3 = (x : 10);
|
||||
|
||||
begin
|
||||
Obj2.Display;
|
||||
Obj3.Display;
|
||||
Obj3b.Display;
|
||||
if (top2_display_called<>1) or (top3_display_called<>2) then
|
||||
Halt(1);
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user