paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-03 19:59:11 +00:00
parent 7fb6b96aed
commit 08ce8f4a0e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/webtbf/tw3738.pp Normal file
View File

@ -0,0 +1,21 @@
{ %fail }
program fjf775a;
type
a = object
f: Integer
end;
b = object (a)
procedure p;
end;
procedure b.p;
begin
WriteLn (inherited f) { WRONG }
end;
begin
end.