Added a few more parallel assignment tests

This commit is contained in:
Neil Brown 2008-01-27 16:50:30 +00:00
parent 7276c3cc4a
commit 5a69459668

View File

@ -24,6 +24,16 @@ PROC m()
%FAIL Identical constants, PAR assign %FAIL Identical constants, PAR assign
a[0],a[0] := 3,4 a[0],a[0] := 3,4
%PASS Self-assign
a[0] := a[0]
a[1] := a[1]
%PASS Self-assign, PAR assign
a[0],a[1] := a[0],a[1]
%PASS PAR assign swap
a[0],a[1] := a[1],a[0]
%PASS Same constant, different array %PASS Same constant, different array
a[0] := 3 a[0] := 3