-- This file tests simple array uses without replication
-- Four unknown variables are available; x, y, z.
-- Two arrays are automatically declared; a (size 10*6) and b (size 12*12)

PROC p(INT x, y, z)
  [10][6]INT a:
  [12][12]INT b:
  PAR
%%
:

PROC m()
  SKIP
:

%PASS Distinct constants
    a[0][0] := 3
    a[1][0] := 4
    a[0][1] := 5
    a[1][1] := 6

%FAIL Identical constants
    a[0][0] := 3
    a[0][0] := 4

%FAIL Identical constants, PAR assign
    a[0][0],a[0][0] := 3,4

%PASS Same constant, different array
    a[0][0] := 3
    b[0][0] := 4

-- TODO add replication and such
%