pascalabcnet/TestSuite/formatter_tests/input/sizeof1.pas

7 lines
157 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
type TArr = array[1..4] of integer;
TArr2 = array[1..3] of string[4];
begin
assert(sizeof(TArr)=4*sizeof(integer));
assert(sizeof(TArr2)=15);
end.