add rogue submodule and support for compiling, some cleanup

This commit is contained in:
slederer 2025-05-15 01:44:06 +02:00
parent a060b65bb9
commit 3eb51f7d4e
9 changed files with 132 additions and 7 deletions

49
tests/nestedtest.pas Normal file
View 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.