paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

tbug738.pp

Browse Source
This commit is contained in:
pierre 1999-12-12 23:35:53 +00:00
parent 116acd6f10
commit c7670ad2d7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/webtbs/tbug739.pp Normal file
View File

@ -0,0 +1,13 @@
{$mode delphi}
type
(* {$IFDEF FPK}
y = class; { shouldn't be necessary }
{$ENDIF} *)
x = class of y;
y = class
z:Boolean;
end;
begin
end.