Return to ffunc.p CVS log

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

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

1.1       root        1: program forfunc( output );
                      2:     
                      3:     var
                      4:        x, z : integer;
                      5: 
                      6:     function foo : integer;
                      7:        begin
                      8:            z := z + 1;
                      9:            foo := z;
                     10:        end;
                     11: 
                     12:     function bar( function y : integer ; x : integer ) : integer;
                     13:        begin
                     14:            bar := y;
                     15:            writeln('in bar x = ', x:1);
                     16:        end;
                     17: 
                     18:     begin
                     19:        z := 1;
                     20:        x := bar (foo, foo);
                     21:         writeln('in forfunc bar = ', x:1);
                     22:     end.

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