From 43c32608109f509464a2d6a4539d53b62eb332d4 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 18 Apr 2008 21:07:20 +0000
Subject: [PATCH]   + OS_S16->OS_32 test for ppc64

git-svn-id: trunk@10707 -
---
 tests/test/cg/tcnvint6.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/test/cg/tcnvint6.pp b/tests/test/cg/tcnvint6.pp
index c3d874d718..549e128f92 100644
--- a/tests/test/cg/tcnvint6.pp
+++ b/tests/test/cg/tcnvint6.pp
@@ -82,9 +82,12 @@ begin
     error(35);
   if cardinal(si)<>$ffffffff then
     error(36);
+  i64:=cardinal(si);
+  if i64<>$ffffffff then
+    halt(37);
 {$ifdef FPC}
   if qword(si)<>$ffffffffffffffff then
-    error(37);
+    error(38);
 {$endif FPC}
 
   writeln('Test OK.');