diff --git a/tests/webtbs/tbug738.pp b/tests/webtbs/tbug738.pp
new file mode 100644
index 0000000000..727dc18cf9
--- /dev/null
+++ b/tests/webtbs/tbug738.pp
@@ -0,0 +1,15 @@
+{$mode delphi}
+
+type
+ (*
+ {$IFDEF FPK}
+ SomeClass = class; { this line shouldn't be necessary }
+ {$ENDIF}
+ *)
+
+ SomeClass = class
+  SomeMember:SomeClass;
+ end;
+
+begin
+end.