paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 00:28:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tests

Browse Source 
git-svn-id: trunk@14794 -
This commit is contained in:
florian 2010-01-24 15:00:49 +00:00
parent d898c8d836
commit 5b1e713e5b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0195.pp
View File

@ -3,9 +3,9 @@
{ consts > 255 are truncated (should work in -S2,-Sd) OK 0.99.11 (PFV) }
{ this is not true anymore because it can lead silently to bugs,
it is allowed now in $H+ mode else it causes an error (FK) }
{$H+}
{$mode objfpc}
{$H+}
{$X-}
const

2
tests/tbs/tb0568.pp
View File

@ -4,6 +4,6 @@ var
begin
{ String constants can't exceed 255 chars }
i:=length('12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
if i<>280 then
if i<>290 then
halt(1);
end.