pascalabcnet/TestSuite/Arr_f1_f1.pas
Mikhalkovich Stanislav c5d9fd841c fix #1684
2019-07-05 21:06:38 +03:00

5 lines
78 B
ObjectPascal

function f1 := 1;
begin
Assert(Arr(f1,f1).SequenceEqual(Seq(1,1)));
end.