60 lines
1.1 KiB
Plaintext
60 lines
1.1 KiB
Plaintext
-- This file tests array uses with replication
|
|
-- Four unknown variables are available; x, y, z.
|
|
-- Two arrays are automatically declared; a (size 10) and b (size 12)
|
|
-- The automatic replication is i = [0..8]
|
|
|
|
PROC p(INT x, y, z)
|
|
[10]INT a:
|
|
[20]INT b:
|
|
PAR i = 0 FOR 9
|
|
%%
|
|
:
|
|
|
|
PROC m()
|
|
SKIP
|
|
:
|
|
|
|
%FAIL Constant in replication
|
|
a[0] := 3
|
|
|
|
%PASS Replicated index
|
|
a[i] := 2
|
|
|
|
%FAIL Replicated index, twice
|
|
a[i] := 2
|
|
a[i] := 2
|
|
|
|
%FAIL Replicated index, twice, slightly different
|
|
a[i] := 2
|
|
a[i + 1] := 2
|
|
|
|
%PASS Replicated index plus one
|
|
a[i + 1] := 2
|
|
|
|
%FAIL Replicated index, modulo low number
|
|
a[i REM 8] := 3
|
|
|
|
%PASS Replicated index, modulo ok number
|
|
a[i REM 9] := 3
|
|
|
|
%PASS Replicated index plus a few, modulo ok number
|
|
a[(i + 4) REM 9] := 3
|
|
|
|
%PASS Safe nested replication
|
|
PAR j = 0 FOR 2
|
|
b[(j * 10) + i] := 3
|
|
|
|
%PASS Unsafe nested replication
|
|
PAR j = 0 FOR 2
|
|
b[(j * 8) + i] := 3
|
|
|
|
%PASS Safe use of variable declared inside PAR
|
|
[10]INT c:
|
|
c[0] := 1
|
|
%PASS Safe parallel use of variable declared inside PAR
|
|
[10]INT c:
|
|
PAR
|
|
c[0] := 1
|
|
c[1] := 2
|
|
%
|