freepascal.compiler/tests/test/tarrconstr13.pp

{%FAIL}
{$mode objfpc}

program tarrconstr13;

var
  a: array[0..0] of integer;
begin
  a := ['a'];
end.