pascalabcnet/TestSuite/TupleVar2Assign.pas
miks1965 38842c45e7 bug fix #411
var (a,b) := (1,2)
2017-06-01 13:14:49 +03:00

5 lines
85 B
ObjectPascal

begin
var (a, b) := (1,1);
assert((a=1) and (b=1));
assert((a,b) = (1,1));
end.