From 5b1e713e5b3afd15f56504c84e8368a4c58e6dff Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 24 Jan 2010 15:00:49 +0000
Subject: [PATCH] * fixed tests

git-svn-id: trunk@14794 -
---
 tests/tbs/tb0195.pp | 2 +-
 tests/tbs/tb0568.pp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/tbs/tb0195.pp b/tests/tbs/tb0195.pp
index 028be144f0..50bcdfbf66 100644
--- a/tests/tbs/tb0195.pp
+++ b/tests/tbs/tb0195.pp
@@ -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
diff --git a/tests/tbs/tb0568.pp b/tests/tbs/tb0568.pp
index 18135e9714..c30cdfa884 100644
--- a/tests/tbs/tb0568.pp
+++ b/tests/tbs/tb0568.pp
@@ -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.