diff --git a/tests/tbs/tbs0337.pp b/tests/tbs/tbs0337.pp
new file mode 100644
index 0000000000..eb55a3a7e3
--- /dev/null
+++ b/tests/tbs/tbs0337.pp
@@ -0,0 +1,29 @@
+program vartest;
+
+{$ifdef fpc}{$mode objfpc}{$endif}
+
+uses
+  Classes;
+
+type
+  TMyComponent = class(TComponent)
+    aaaaaaaaaa: TComponent;
+    b: TComponent;
+  private
+  public
+    constructor Create(AOwner: TComponent); override;
+  end;
+
+
+constructor TMyComponent.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  aaaaaaaaaa := TComponent.Create(Self);
+end;
+
+var
+  MyComponent: TMyComponent;
+
+begin
+  MyComponent := TMyComponent.Create(nil);
+end.
diff --git a/tests/tbs/tbs0338.pp b/tests/tbs/tbs0338.pp
new file mode 100644
index 0000000000..1f1a87d76c
--- /dev/null
+++ b/tests/tbs/tbs0338.pp
@@ -0,0 +1,9 @@
+{$define skip}
+
+program test;
+begin
+ writeln('Hello world!');
+{$ifndef skip}
+ write('}');
+{$endif skip}
+end.