paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug #1858 testing

Browse Source
This commit is contained in:
carl 2002-03-07 21:40:56 +00:00
parent de0d0678f5
commit ec538658c6
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tests/webtbs/tw1858.pp Normal file
View File

@ -0,0 +1,31 @@
{ %RESULTCODE=1 }
{ 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 test1;
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.1 2002-03-07 21:40:56 carl
* bug #1858 testing
}