paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:39:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ 2403 bug report

Browse Source
This commit is contained in:
carl 2003-03-03 15:43:33 +00:00
parent 3d458ea501
commit bafba256ad
1 changed files with 13 additions and 0 deletions

13
tests/webtbf/tw2403.pp Normal file
View File

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