* checks for bug #1365

tests/webtbf/tw1365.pp

@@ -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.
+

tests/webtbs/tw1365.pp

@@ -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.
+