Return to ffunc.p CVS log

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

BSD 4.3reno

program forfunc( output );
    
    var
	x, z : integer;

    function foo : integer;
	begin
	    z := z + 1;
	    foo := z;
	end;

    function bar( function y : integer ; x : integer ) : integer;
	begin
	    bar := y;
	    writeln('in bar x = ', x:1);
	end;

    begin
	z := 1;
	x := bar (foo, foo);
        writeln('in forfunc bar = ', x:1);
    end.

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