summaryrefslogtreecommitdiff
path: root/testsuite/tests/primops/should_run
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2018-06-14 09:13:11 -0400
committerBen Gamari <ben@smart-cactus.org>2018-06-14 10:03:28 -0400
commitca7653a97e660e95e2a52713cb0a9417c1c239ae (patch)
tree70834642455fab0cca32d20ce786717f64c715c0 /testsuite/tests/primops/should_run
parent97d141989348b2bd399ff7bc92eaf1a502f59952 (diff)
downloadhaskell-ca7653a97e660e95e2a52713cb0a9417c1c239ae.tar.gz
testsuite: Fix T4442 on i386
Test Plan: Validate on i386 Reviewers: tdammers Reviewed By: tdammers Subscribers: rwbarton, thomie, carter GHC Trac Issues: #15184 Differential Revision: https://phabricator.haskell.org/D4838
Diffstat (limited to 'testsuite/tests/primops/should_run')
-rw-r--r--testsuite/tests/primops/should_run/T4442.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/testsuite/tests/primops/should_run/T4442.hs b/testsuite/tests/primops/should_run/T4442.hs
index 0d09f621e0..40d7879cac 100644
--- a/testsuite/tests/primops/should_run/T4442.hs
+++ b/testsuite/tests/primops/should_run/T4442.hs
@@ -8,6 +8,9 @@ import GHC.Stable(
StablePtr(..), castStablePtrToPtr, castPtrToStablePtr, newStablePtr)
import GHC.Exts
import Data.Char(ord)
+#if WORD_SIZE_IN_BITS < 64
+import GHC.Int (Int64(..))
+#endif
assertEqual :: (Show a, Eq a) => a -> a -> IO ()
assertEqual a b