mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
14 lines
189 B
ObjectPascal
14 lines
189 B
ObjectPascal
{ %FAIL }
|
|
{ Old file: tbf0167.pp }
|
|
{ crash when declaring a procedure with same name as object OK 0.99.9 (PFV) }
|
|
|
|
type ObjTest = Object
|
|
End;
|
|
|
|
Procedure ObjTest;
|
|
Begin
|
|
end;
|
|
|
|
Begin
|
|
end.
|