+ 2403 bug report

tests/webtbf/tw2403.pp

@@ -0,0 +1,13 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2403 }
+{ Submitted by "Sergey Kosarevsky" on  2003-03-01 }
+{ e-mail: [email protected] }
+{$MODE DELPHI}
+
+Type tObj=Class
+     End;
+
+Begin
+   If tObj Is 'tClass' Then WriteLn('OK');
+End.