From d464de48c40517537ff977965ad91957b02a87a1 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: Sat, 10 Jun 2017 19:34:16 +0200
Subject: [PATCH] delegates7.pas

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

diff --git a/TestSuite/delegates7.pas b/TestSuite/delegates7.pas
new file mode 100644
index 000000000..52a575c38
--- /dev/null
+++ b/TestSuite/delegates7.pas
@@ -0,0 +1,18 @@
+var a, b: integer;
+
+procedure p();
+begin
+  a := 1;
+end;
+
+procedure r();
+begin
+  b := 2;
+end;
+
+begin
+  var q: procedure := p+r;
+  q;
+  assert(a = 1);
+  assert(b = 2);
+end.
\ No newline at end of file