aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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.