mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 10:49:26 +02:00
32 lines
472 B
ObjectPascal
32 lines
472 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.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.3 2005-02-14 17:13:37 peter
|
|
* truncate log
|
|
|
|
}
|
|
|
|
|