From c7670ad2d726635b256c5ed6eb643ee95509db83 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 12 Dec 1999 23:35:53 +0000
Subject: [PATCH] tbug738.pp

---
 tests/webtbs/tbug739.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 tests/webtbs/tbug739.pp

diff --git a/tests/webtbs/tbug739.pp b/tests/webtbs/tbug739.pp
new file mode 100644
index 0000000000..fe8d1663bb
--- /dev/null
+++ b/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.