From e39f1cadca9aaa475c7df3449290fa680f1d579e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Tue, 26 May 2020 20:08:34 +0200
Subject: [PATCH] test for #2094

---
 TestSuite/lambdas8.pas | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 TestSuite/lambdas8.pas

diff --git a/TestSuite/lambdas8.pas b/TestSuite/lambdas8.pas
new file mode 100644
index 000000000..2ce9b9fbc
--- /dev/null
+++ b/TestSuite/lambdas8.pas
@@ -0,0 +1,24 @@
+var l: List<integer>;
+
+procedure p1<T>(f: ()->T);
+begin
+  f();
+end;
+
+begin
+  p1(()->
+  begin
+    Result := new class(l := new List<integer>);
+    
+    loop 1 do // обязательно цикл loop for или foreach
+    begin
+      
+      Result.l := new List<integer>;
+      Result.l.Add(0);
+      var o := Result.l;
+      l := Result.l;
+    end;
+    
+  end);
+  assert(l[0] = 0);
+end.
\ No newline at end of file