delegates7.pas

2017-06-10 19:34:16 +02:00 · 2017-06-10 19:34:16 +02:00 · d464de48c4
parent 6b1e3b72bb
commit d464de48c4
1 changed files with 18 additions and 0 deletions
--- a/TestSuite/delegates7.pas
+++ 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.