diff options
Diffstat (limited to 'check/nesting.p')
-rw-r--r-- | check/nesting.p | 69 |
1 files changed, 69 insertions, 0 deletions
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. |