test for #3219

2024-10-30 20:42:59 +01:00 · 2024-10-30 20:42:59 +01:00 · 1e4a811e04
parent d1a1247ecd
commit 1e4a811e04
1 changed files with 19 additions and 0 deletions
--- a/TestSuite/nested7.pas
+++ 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.