mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* nice wrong code that should give an error !!
This commit is contained in:
parent
c76929619a
commit
9bb015f2b4
20
tests/tf/tf000008.pp
Normal file
20
tests/tf/tf000008.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user