From 81134c56902ee9da85c1d9f6d3c61ab9d04ed7a4 Mon Sep 17 00:00:00 2001
From: channa <cdiasperera@gmail.com>
Date: Wed, 24 Jan 2024 11:02:38 +0100
Subject: [PATCH] Improved testing a bit

---
 test/input/broken.pas | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 test/input/broken.pas

diff --git a/test/input/broken.pas b/test/input/broken.pas
new file mode 100644
index 0000000..bfdf570
--- /dev/null
+++ b/test/input/broken.pas
@@ -0,0 +1,24 @@
+{ This program does some work on arrays, passing them by value and by reference and such }
+program arr
+
+const N = 5;
+
+var arr : array [5 .. 6] of real;
+
+function some (rra : array [1 .. 2] of real; y : real; z : real) : real;
+begin
+    some := rra[1] + y + z
+end;
+
+procedure some2 (var rra : array [2 .. 3] of real);
+begin
+    rra[3] := rra[3] + 20
+end;
+
+begin
+    readln(arr[5], arr[6]);
+    writeln(some(arr, arr[5], N));
+    writeln(some(arr, 5, 5.6));
+    some2(arr);
+    writeln(arr[5], arr[6])
+end.
\ No newline at end of file