Commit ff6ee998 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

testsuite: Make T10245 pass on 32-bit platforms

parent 6c73504a
{-# LANGUAGE CPP #-}
#include "MachDeps.h"
f :: Int -> String
f n = case n of
#if WORD_SIZE_IN_BITS == 64
0x8000000000000000 -> "yes"
#else
0x80000000 -> "yes"
#endif
_ -> "no"
{-# NOINLINE f #-}
main = do
#if WORD_SIZE_IN_BITS == 64
let string = "0x8000000000000000"
#else
let string = "0x80000000"
#endif
let i = read string :: Integer
let i' = fromIntegral i :: Int
print i
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment