Another SpecConstr test

examples/spec-constr/Pipelines.hs

@@ -18,3 +18,7 @@ pipe4 :: SUArr Int -> Int
 pipe4 = maximumU . sumSU
 {-# NOINLINE pipe4 #-}
 
+pipe5 :: UArr Int -> UArr Int
+{-# NOINLINE pipe5 #-}
+pipe5 xs = sumSU (replicateSU (replicateU (lengthU xs) 5) xs)
+

examples/spec-constr/spec-constr.hs

@@ -17,6 +17,7 @@ algs = [("pipe1", Algo (uncurry pipe1) (uarr >< uarr))
        ,("pipe2", Algo pipe2           uarr)
        ,("pipe3", Algo pipe3           uarr)
        ,("pipe4", Algo pipe4           suarr)
+       ,("pipe5", Algo pipe5           uarr)
        ]
 
 uarr :: (UA a, Random a) => Gen (UArr a)