Issue93.hs

module Test.Issues.Issue93 (test_issue93)
  where

import Config
import ParseArgs
import Test.Base
import Test.Framework
import Test.Framework.Providers.HUnit

import Prelude                                  as P
import Data.Array.Accelerate                    as A
import Data.Label


test_issue93 :: Config -> Test
test_issue93 conf =
  testCase "93" (assertEqual xs $ run backend test1)
  where
    backend     = get configBackend conf


xs :: Array DIM2 Int
xs = fromList (Z :. 1 :. 1) [5]

test1 :: Acc (Array DIM2 Int)
test1 = permute (\c _ -> c) (fill (shape xs') (constant 0)) id xs'
  where
    xs' = use xs