* nice wrong code that should give an error !!

This commit is contained in:
pierre 2000-03-23 21:30:31 +00:00
parent c76929619a
commit 9bb015f2b4

20
tests/tf/tf000008.pp Normal file
View File

@ -0,0 +1,20 @@
type
obj = object
procedure method1;
procedure method2;
end;
procedure obj.method1;
procedure obj.method2;
begin
end;
begin
end;
begin
end.