Add more of Tino's tests

1 files changed, 27 insertions, 0 deletions

diff --git a/Testing/General/test-0.p b/Testing/General/test-0.p
new file mode 100644
index 0000000..838d264
--- /dev/null
+++ b/Testing/General/test-0.p
@@ -0,0 +1,27 @@
+program main(input);
+ var a: integer;
+ var b: array[1 .. 10] of real;
+ var x: real;
+ function foo(x: integer; y: real):integer;
+ begin
+	foo := foo(x-1) + 1;
+	x := 13
+ end;
+begin
+ if ( x > 3.14 and x < 0.0 ) then
+ 	x := 1.0
+ else
+	x := 0.0
+end.
+
+
+
+
+
+
+
+
+
+
+
+