Commit 35a209ce authored by amosrobinson's avatar amosrobinson

Trac #7736: Parallel array enumeration causes compiler panic (enumFromToP), expected fail

parent a3e91091
-- List enumeration doesn't work for parallel list comprehensions.
--
-- > ghc-stage2: panic! (the 'impossible' happened)
-- > (GHC version 7.7.20130109 for x86_64-unknown-linux):
-- > DsMonad: uninitialised ds_parr_bi
--
-- (I.enumFromToP is a workaround)
{-# LANGUAGE ParallelArrays, ParallelListComp #-}
{-# OPTIONS -fvectorise #-}
module EnumFromToP where
import Data.Array.Parallel hiding ((+), (-), (*), (/))
import Data.Array.Parallel.PArray
import Data.Array.Parallel.Prelude.Bool as B
import Data.Array.Parallel.Prelude.Double as D
import qualified Data.Array.Parallel.Prelude.Int as I
import qualified Data.Vector as V
import qualified Prelude as P
nums = [: 0 .. 100 :]
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test ('EnumFromToP'
, [ extra_clean(['EnumFromToP.o', 'EnumFromToP.hi'])
, reqlib('dph-lifted-vseg')
, reqlib('dph-prim-par')
, ignore_output
, expect_broken(7736)
, only_ways(['normal', 'threaded1', 'threaded2']) ]
, compile_fail
, [ '-O -fno-enable-rewrite-rules -package dph-lifted-vseg'])
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