Commit faf86017 authored by Simon Marlow's avatar Simon Marlow

add test for #2410

parent 0d3f0622
{-# OPTIONS_GHC -fno-warn-missing-methods #-}
module C where
data RealFloat a => Complex a = !a :+ !a
deriving (Eq, Show)
instance (RealFloat a) => Num (Complex a) where
{-# SPECIALISE instance Num (Complex Float) #-}
{-# SPECIALISE instance Num (Complex Double) #-}
(x :+ y) + (x' :+ y') = (x + x') :+ (y + y')
......@@ -4,3 +4,5 @@
test('prof001', compose(only_ways(['normal']), req_profiling), compile_and_run, ['-prof -caf-all'])
test('prof002', compose(only_ways(['normal']), req_profiling), compile_and_run, ['-prof -caf-all'])
test('2410', compose(only_ways(['normal']), req_profiling), compile, ['-O2 -prof -caf-all'])
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