From 8e354d0b3d76eac27fe2c533db275e21f983b8dd Mon Sep 17 00:00:00 2001
From: Tucker Evans <tuckerevans24@gmail.com>
Date: Mon, 30 Sep 2019 16:46:18 -0400
Subject: Add more of Tino's tests

---
 Testing/General/test-5.p | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 Testing/General/test-5.p

(limited to 'Testing/General/test-5.p')

diff --git a/Testing/General/test-5.p b/Testing/General/test-5.p
new file mode 100644
index 0000000..b71a6b4
--- /dev/null
+++ b/Testing/General/test-5.p
@@ -0,0 +1,12 @@
+program main( input, output );
+  var x, y: integer;
+  function foo( x, y: integer ): integer;
+  begin
+	foo := x * x - y * y
+  end;
+begin
+  read(x);
+  y := foo( x+1, x-1 );
+  write(y)
+end.
+
-- 
cgit v1.1