blob: 439489df2594eabb85861ba8df1101725319bb1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Old file: tbs0146.pp }
{ no sizeof() for var arrays and the size is pushed incorrect OK 0.99.7 (PFV) }
procedure myfunction(var t : array of char);
begin
writeln(sizeof(t)); { should be 51 }
if sizeof(t)<>51 then halt(1);
end;
var
mycharstring : array[0..50] of char;
begin
myfunction(mycharstring);
if sizeof(mycharstring)<>51 then halt(1);
end.
|
