Revision be817c70341f9b582a80e115c604f518706f4f46 authored by Eric Allman on 19 April 1979, 11:33:40 UTC, committed by Eric Allman on 19 April 1979, 11:33:40 UTC
Work on file src/me/null.me Synthesized-from: 2bsd
1 parent 1aedb5f
t09.p
program sideffect(output);
var
a, z: integer;
function sneaky(x: integer): integer;
begin
z := z-x;
sneaky := sqr(x);
end;
begin
z := 10;
a := sneaky(z);
writeln(a, z);
z := 10;
a := sneaky(10) * sneaky(z);
writeln(a, z);
z := 10;
a := sneaky(z) * sneaky(10);
writeln(a, z);
end.
Computing file changes ...
