aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTucker Evans <tuckerevans24@gmail.com>2019-08-03 13:43:37 -0400
committerTucker Evans <tuckerevans24@gmail.com>2019-08-03 13:43:37 -0400
commit0e35d5eb2338d878283cd16357db99b49a8ee0ad (patch)
tree0ac7b88c06890310fed3fc387576f0de05c865b3
parent3c0ca817145ad919dc6b92638edcffd739da7f8f (diff)
Adds pascal files for testing
-rw-r--r--check/main.p34
-rw-r--r--check/nesting.p69
2 files changed, 103 insertions, 0 deletions
diff --git a/check/main.p b/check/main.p
new file mode 100644
index 0000000..f05808b
--- /dev/null
+++ b/check/main.p
@@ -0,0 +1,34 @@
+program main ( input, output );
+
+ var a, b: integer;
+ var x,y,z: real;
+ var ai :array [1..10] of integer;
+ procedure boo (n: integer);
+ var a,c: integer;
+ begin
+ a := n
+ end;
+ function bar (a: integer) : real;
+ var test:integer;
+ begin
+ test := 2;
+ a := 2
+ end;
+ procedure foo;
+ begin
+ a := 33333;
+ x := 1e10;
+ z := 1e-10;
+ y := 2.5543e-2
+ end;
+begin
+{ TEST }
+
+ a := 1;
+ x := 3.14;
+ b := a + 35;
+ (* test *)
+ for c := 0 to 10 do begin
+ for a:= 10 downto 0 do b := a - c
+ end
+end.
diff --git a/check/nesting.p b/check/nesting.p
new file mode 100644
index 0000000..6d24b6b
--- /dev/null
+++ b/check/nesting.p
@@ -0,0 +1,69 @@
+
+program main ( input, output );
+
+ var a, b: integer;
+ var x,y,z: real;
+ var ai :array [1..10] of integer;
+ procedure boo (n: integer);
+ var a,c: integer;
+ begin
+ a := n
+ end;
+ function bar (a: integer) : real;
+ var test:integer;
+ begin
+ test := 2;
+ a := 2
+ end;
+ procedure foo;
+ procedure foo2;
+ procedure foo13;
+ procedure foo4;
+ procedure foo5;
+ procedure foo6;
+ procedure foo7;
+ procedure foo46;
+ procedure fooaoesut;
+ procedure foosathst;
+ procedure foothsth;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+ begin
+ a := 33333
+ end;
+begin
+{ TEST }
+
+ a := 1;
+ x := 3.14;
+ b := a + 35
+ (* test *)
+end.