Return to nonlocgoto.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/nonlocgoto.p, revision 1.1.1.1

1.1       root        1: program test(output);
                      2: label  1;
                      3: 
                      4: procedure lvl1;
                      5: 
                      6: var
                      7: f :file of char;
                      8: 
                      9: procedure lvl2;
                     10: 
                     11: begin
                     12: writeln('lvl2 called');
                     13: goto 1;
                     14: halt;
                     15: end;
                     16: 
                     17: begin
                     18: rewrite(f,'file');
                     19: writeln(f,'lvl1 called');
                     20: lvl2;
                     21: halt;
                     22: end;
                     23: 
                     24: begin
                     25: writeln('lvl0 called');
                     26: lvl1;
                     27: halt;
                     28: 1:writeln('it worked');
                     29: end.

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