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

Text File | 2005-10-24 | 257b | 16 lines

program is
  procedure echo(x: integer) : integer is
    begin
      write (x);
      return x;
    end;
  type T is array of integer;
  var a := T {{ 10 of 0 }};
  var b := 99;
  begin
      a[9] := b;
      a[echo(1)] := echo(b) + echo(3);
  end;