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

Text File | 2005-10-24 | 244b | 11 lines

program is
  type T is array of integer;
  var a := T {{ 10 of 0 }};
  begin
    a[1] := 1;
    a[9] := 1;
    a[10] := 1;  (* syntactically ok, but runtime time error *)
    a[11] := 1;  (* syntactically ok, but runtime time error *)
  end;