Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
5296caf0
Commit
5296caf0
authored
Jul 20, 2011
by
Simon Marlow
Browse files
add test for
#5314
parent
ae6129e4
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/profiling/should_run/5314.hs
0 → 100644
View file @
5296caf0
import
Control.Concurrent
import
Control.Monad
(
forever
)
main
=
do
empty
<-
newEmptyMVar
exit
<-
newEmptyMVar
_
<-
forkIO
$
threadDelay
200000
>>
putMVar
exit
()
_
<-
forkIO
$
takeMVar
empty
>>
return
()
_
<-
forkIO
$
print
(
sum
[
1
..
10000
])
takeMVar
exit
testsuite/tests/ghc-regress/profiling/should_run/5314.stdout
0 → 100644
View file @
5296caf0
50005000
testsuite/tests/ghc-regress/profiling/should_run/all.T
View file @
5296caf0
...
...
@@ -25,3 +25,10 @@ test('T3001-2',
test
('
scc001
',
[
expect_broken
(
4414
),
req_profiling
],
run_command
,
['
$MAKE -s --no-print-directory scc001
'])
test
('
5314
',
composes
([
only_ways
(
prof_ways
+
extra_prof_ways
),
extra_ways
(
extra_prof_ways
),
req_profiling
]),
compile_and_run
,
[''])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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