mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
23 lines
394 B
ObjectPascal
23 lines
394 B
ObjectPascal
{ %FAIL }
|
|
{ Source provided for Free Pascal Bug Report 1858 }
|
|
{ Submitted by "Mattias Gaertner" on 2002-03-07 }
|
|
{ e-mail: nc-gaertnma@netcologne.de }
|
|
{ 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.
|