ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/stat9.pcat

Text File | 2005-10-24 | 209b | 9 lines

program is
  type T is array of integer;
  var a := T {{ 2 of 0 }};
  procedure echo(x: integer) is begin write(x); return x; end;
  begin
    read(a[echo(0)], a[echo(1)]);
    write(a[0], " ", a[1]);
  end;