diff --git a/TestSuite/nested7.pas b/TestSuite/nested7.pas
new file mode 100644
index 000000000..1594f2494
--- /dev/null
+++ b/TestSuite/nested7.pas
@@ -0,0 +1,19 @@
+type
+  NewSet1<T> = class
+  end;
+
+procedure Test2;
+  var b1 := new NewSet1<integer>;
+
+  procedure Nested;
+  begin
+    assert(b1 <> nil);
+  end;
+    
+begin
+  Nested;
+end;
+
+begin
+  Test2;
+end.
\ No newline at end of file