Play around with fusion DCE bugs

accelerate.cabal

@@ -624,7 +624,7 @@ test-suite tom-test
   hs-source-dirs:       test/tom
   main-is:              Main.hs
   other-modules:        ADHelp, Logistic, Optimise, Neural, LSTM, ConvNet,
-                        Playground.Neural, Neural.Help
+                        Playground.Neural, Playground.Fusion, Neural.Help
 
   build-depends:
           base                          >= 4.10

test/tom/Playground/Fusion.hs

@@ -0,0 +1,20 @@
+module Playground.Fusion where
+
+-- import qualified Prelude as P
+import Prelude (IO, print)
+import Data.Array.Accelerate
+
+
+main :: IO ()
+main = do
+  print inputProgram
+
+inputProgram :: Acc (Scalar Float)
+inputProgram =
+  let arr = use (fromList Z [1 :: Float])
+  in zipWith
+       (\x _ -> x)
+       (generate Z_ (\_ -> 1 :: Exp Float))
+       (zipWith (\x y -> T2 x y)
+                (map (\x -> x) arr)
+                (map (\x -> x) arr))