From 8e354d0b3d76eac27fe2c533db275e21f983b8dd Mon Sep 17 00:00:00 2001 From: Tucker Evans Date: Mon, 30 Sep 2019 16:46:18 -0400 Subject: Add more of Tino's tests --- Testing/General/test-0.p | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 Testing/General/test-0.p (limited to 'Testing/General/test-0.p') 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. + + + + + + + + + + + + -- cgit v1.1