freepascal.compiler/tests/webtbf/tw3186.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 3186 }
{ Submitted by "Sergey Kosarevsky" on  2004-06-25 }
{ e-mail: [email protected] }

{$mode objfpc}

Type tMyType=Class
     End;

Begin
   If Assigned(tMyType) Then;
End.