From c5d9fd841cb720c095b7779bd3939790d20e3dc0 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Fri, 5 Jul 2019 21:06:38 +0300
Subject: [PATCH] fix #1684

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

diff --git a/TestSuite/Arr_f1_f1.pas b/TestSuite/Arr_f1_f1.pas
new file mode 100644
index 000000000..2074f1faf
--- /dev/null
+++ b/TestSuite/Arr_f1_f1.pas
@@ -0,0 +1,5 @@
+function f1 := 1;
+
+begin
+  Assert(Arr(f1,f1).SequenceEqual(Seq(1,1)));
+end.
\ No newline at end of file