1 2 3 4 5 6 7 8 9 10 11 12 13
{ %fail } { %opt=-Sew -vw -Oonodeadvalues} var a : array[0..32] of byte; procedure p(const a:array of byte); begin end; begin p(a); end.