nofib: add test for AccelerateHS/accelerate#93

accelerate-examples.cabal

@@ -97,6 +97,7 @@ Executable accelerate-nofib
                         Test.Imaginary.SASUM
                         Test.Imaginary.SAXPY
                         Test.Issues
+                        Test.Issues.Issue93
                         Test.Issues.Issue114
                         Test.Issues.Issue137
                         Test.Issues.Issue168

examples/nofib/Test/Issues.hs

@@ -8,6 +8,7 @@ module Test.Issues (
 import Config
 
 import Test.Framework
+import Test.Issues.Issue93
 import Test.Issues.Issue114
 import Test.Issues.Issue137
 import Test.Issues.Issue168
@@ -20,7 +21,8 @@ test_issues :: Config -> Test
 test_issues conf =
   testGroup "issues"
     [
-      test_issue114 conf
+      test_issue93  conf
+    , test_issue114 conf
     , test_issue137 conf
     , test_issue168 conf
     , test_issue184 conf

examples/nofib/Test/Issues/Issue93.hs

@@ -0,0 +1,30 @@
+
+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
+