Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
faf86017
Commit
faf86017
authored
Sep 30, 2008
by
Simon Marlow
Browse files
add test for #2410
parent
0d3f0622
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/profiling/should_compile/2410.hs
0 → 100644
View file @
faf86017
{-# 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'
)
testsuite/tests/ghc-regress/profiling/should_compile/all.T
View file @
faf86017
...
...
@@ -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
'])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment