paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:49:27 +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) } { 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, { 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) } it is allowed now in $H+ mode else it causes an error (FK) }
{$H+}
{$mode objfpc} {$mode objfpc}
{$H+}
{$X-} {$X-}
const const

2
tests/tbs/tb0568.pp
View File

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