Return to nonlocgoto.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

program test(output);
label	1;

procedure lvl1;

var
f :file of char;

procedure lvl2;

begin
writeln('lvl2 called');
goto 1;
halt;
end;

begin
rewrite(f,'file');
writeln(f,'lvl1 called');
lvl2;
halt;
end;

begin
writeln('lvl0 called');
lvl1;
halt;
1:writeln('it worked');
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.