Commit e8deec54 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for #5603

parent ea7a1613
{-# LANGUAGE MagicHash #-}
module Main (main) where
import GHC.Base
import GHC.Integer.GMP.Internals
main :: IO ()
main = (encodeDouble 0 :: Double) `seq` return ()
{-# INLINE encodeDouble #-}
encodeDouble :: Integer -> Double
encodeDouble (S# _) = D# 3.0##
encodeDouble (J# _ _) = D# 4.0##
...@@ -48,3 +48,4 @@ test('T5315', normal, compile_and_run, ['']) ...@@ -48,3 +48,4 @@ test('T5315', normal, compile_and_run, [''])
test('T5453', normal, compile_and_run, ['']) test('T5453', normal, compile_and_run, [''])
test('T5441', extra_clean(['T5441a.o','T5441a.hi']), test('T5441', extra_clean(['T5441a.o','T5441a.hi']),
multimod_compile_and_run, ['T5441','']) multimod_compile_and_run, ['T5441',''])
test('T5603', expect_broken(5603), compile_and_run, [''])
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