freepascal.compiler/bugs/bug0149a.pp

unit bug0149a;

interface

Const tset = [1,2,3,4,5];
      c = 1;

implementation

end.