accelerate-examples-0.15.1.0: examples/nofib/Test/Issues/Issue123.hs

module Test.Issues.Issue123 (test_issue123)
  where

import Config
import Test.Framework
import Test.Framework.Providers.HUnit

import Prelude                                                  as P
import Data.Array.Accelerate                                    as A
import Data.Array.Accelerate.Examples.Internal                  as A


test_issue123 :: Backend -> Config -> Test
test_issue123 backend _conf =
  testCase "123" (assertEqual ref1 $ run backend (test1 n))
  where
    n           = 100
    ref1        = fromList Z [n]


test1 :: Int -> Acc (Scalar Int)
test1 n
  = fold (+) 0
  $ fill (constant (Z:.n)) 1