tbug738.pp

tests/webtbs/tbug739.pp

@@ -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.