pascalabcnet/TestSuite/boxing3.pas
Бондарев Иван 1fe7c18640 bug fix #699
2018-03-08 21:40:19 +01:00

9 lines
189 B
ObjectPascal

begin
var a: BigInteger := 1;
var s := byte(a).ToString;
var s2 := object(a).ToString;
var s3 := BigInteger(1).ToString;
assert(s='1');
assert(s2='1');
assert(s3='1');
end.