Commit bbb9cbef authored by Jan Stolarek's avatar Jan Stolarek
Browse files

Add regression test for #8103

parent 0c03faed
{-# LANGUAGE MagicHash #-}
module Main where
import T8103_A
float_text = case (0.0## `foo` 1.2##) of
0.0## -> "1"
_ -> "0"
main = putStrLn (float_text)
{-# LANGUAGE MagicHash #-}
module T8103_A where
import GHC.Exts
{-# NOINLINE foo #-}
foo :: Double# -> Double# -> Double#
foo a b = (a +## b)
......@@ -112,4 +112,4 @@ test('Word2Float64', unless(wordsize(64), skip), compile_and_run, [''])
test('T7361', normal, compile_and_run, [''])
test('T7600', normal, compile_and_run, [''])
test('T8103', only_ways(['normal']), 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