35 lines
595 B
Plaintext
35 lines
595 B
Plaintext
-- 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
|
|
%
|