mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
21 lines
343 B
ObjectPascal
21 lines
343 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 2018 }
|
|
{ Submitted by "Sergey Kosarevsky" on 2002-06-29 }
|
|
{ e-mail: netsurfer@au.ru }
|
|
Unit tw2018;
|
|
|
|
Interface
|
|
|
|
Type tExtObject=Object
|
|
{ The next line should be refused }
|
|
Procedure Draw;External;
|
|
End;
|
|
|
|
Implementation
|
|
|
|
Procedure tExtObject.Draw;External;
|
|
|
|
Begin
|
|
End.
|