pascalabcnet/TestSuite/SingleReal.pas
Mikhalkovich Stanislav 08b1cfa442 fix #2872
2023-09-18 11:00:06 +03:00

3 lines
73 B
ObjectPascal

begin
Assert(Arr(1.0,2.0).Sum(x -> x*x).GetType = typeof(real))
end.