Ticket #3555: NegConst.hs

File NegConst.hs, 347 bytes (added by ams, 5 years ago)
Line 
1{-# LANGUAGE PArr, ParallelListComp #-}
2{-# OPTIONS -fvectorise #-}
3
4module NegConst (negs)
5where
6
7import qualified Prelude
8import Data.Array.Parallel.Prelude
9import Data.Array.Parallel.Prelude.Double
10
11negs :: [:Double:] -> [:Double:]
12negs xs = [: -1.0 | x <- xs :] -- this causes an error
13-- negs xs = [: (0.0 - 1.0) | x <- xs :] -- this is OK
14
15