tw3267.pp 271 B

12345678910111213141516
  1. { %fail }
  2. { Source provided for Free Pascal Bug Report 3267 }
  3. { Submitted by "Karoly Balogh" on 2004-08-22 }
  4. { e-mail: [email protected] }
  5. program test;
  6. const VALUE : cardinal = 1;
  7. procedure bug(var p: array of cardinal);
  8. begin
  9. end;
  10. begin
  11. bug([VALUE]);
  12. end.