Skip to content
GitLab
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
53565e8f
Commit
53565e8f
authored
Jun 23, 2006
by
Simon Marlow
Browse files
add test from
#799
parent
1ce65803
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/par/Makefile
0 → 100644
View file @
53565e8f
TOP
=
../../..
include
$(TOP)/mk/boilerplate.mk
include
$(TOP)/mk/test.mk
testsuite/tests/ghc-regress/par/all.T
0 → 100644
View file @
53565e8f
setTestOpts
(
only_ways
(['
threaded1
',
'
threaded2
']));
test
('
par001
',
normal
,
compile_and_run
,
[''])
testsuite/tests/ghc-regress/par/par001.hs
0 → 100644
View file @
53565e8f
import
Control.Parallel
parfib
0
=
return
1
parfib
1
=
return
1
parfib
n
=
do
n1
<-
parfib
(
n
-
1
)
n2
<-
parfib
(
n
-
2
)
n3
<-
(
n1
`
par
`
(
n2
`
seq
`
(
return
(
n1
+
n2
+
1
))))
return
n3
main
=
do
x
<-
parfib
30
;
print
x
testsuite/tests/ghc-regress/par/par001.stdout
0 → 100644
View file @
53565e8f
2692537
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