mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 08:59:28 +02:00
95be416b9d
* change booleans in arraydef to set
* set option in arraydef to indicate a constant string so
a nicer type can be shown instead of array[0..x] of char
git-svn-id: trunk@3051 -
16 lines
334 B
ObjectPascal
16 lines
334 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 4911 }
|
|
{ Submitted by "Joost van der Sluis" on 2006-03-17 }
|
|
{ e-mail: joost at cnoc - nl }
|
|
program LongintTest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
var l : longint;
|
|
begin
|
|
//l := 335544569; Gives an exception in my case
|
|
l := 43; // results garbage
|
|
writeln('Errpr: ' + l);
|
|
end.
|