add rogue submodule and support for compiling, some cleanup
This commit is contained in:
parent
a060b65bb9
commit
3eb51f7d4e
9 changed files with 132 additions and 7 deletions
49
tests/nestedtest.pas
Normal file
49
tests/nestedtest.pas
Normal file
|
|
@ -0,0 +1,49 @@
|
|||
program NestedTest;
|
||||
var g:integer;
|
||||
|
||||
procedure first;
|
||||
var f:integer;
|
||||
|
||||
procedure second;
|
||||
var s:integer;
|
||||
|
||||
procedure third1;
|
||||
var t1:integer;
|
||||
begin
|
||||
t1 := 310;
|
||||
s := 31;
|
||||
writeln('t1:', t1);
|
||||
end;
|
||||
|
||||
procedure third2;
|
||||
var t2:integer;
|
||||
begin
|
||||
t2 := 320;
|
||||
s := 32;
|
||||
writeln('t2:', t2);
|
||||
if g <> 21 then
|
||||
begin
|
||||
g := 21;
|
||||
second;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
f := 2;
|
||||
writeln('g:',g);
|
||||
third1;
|
||||
writeln('g:', g);
|
||||
third2;
|
||||
writeln('s:',s);
|
||||
end;
|
||||
|
||||
begin
|
||||
second;
|
||||
writeln('f:', f);
|
||||
end;
|
||||
|
||||
begin
|
||||
g := 0;
|
||||
first;
|
||||
writeln('g:', g);
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue