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