freepascal.compiler/tests/webtbf/tw1858.pp

{ %FAIL }
{ Source provided for Free Pascal Bug Report 1858 }
{ Submitted by "Mattias Gaertner" on  2002-03-07 }
{ e-mail: [email protected] }
{ expanded for more testing... }
{ Should be tested on systems which detect reads of nil pointers }
unit tw1858;


interface

const

  a : char = '#';
  b = a + 'panic';

  c : set of byte = [0,1,2,3];
  d = c + [4,5,6];

implementation

end.