* tests from reported busg

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.

tests/tbs/tbs0338.pp

@@ -0,0 +1,9 @@
+{$define skip}
+
+program test;
+begin
+ writeln('Hello world!');
+{$ifndef skip}
+ write('}');
+{$endif skip}
+end.