paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-03 19:39:11 +00:00
parent 86765dcf57
commit e1205ad4e4
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/webtbf/tw3740.pp Normal file
View File

@ -0,0 +1,20 @@
{ %fail }
program fjf915a;
type
t = object
constructor Init (a: Boolean);
end;
constructor t.Init (a: Boolean);
begin
end;
var
p: ^t;
begin
New (p, Init (Init (False))) { WRONG }
end.