freepascal.compiler/tests/webtbf/tw2018.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 2018 }
{ Submitted by "Sergey Kosarevsky" on  2002-06-29 }
{ e-mail: [email protected] }
Unit tw2018;

Interface

Type tExtObject=Object
        { The next line should be refused }
        Procedure Draw;External;
     End;

Implementation

Procedure tExtObject.Draw;External;

Begin
End.