Another nice test.

Author: athas

tests/fusion/fuse-across-reshape5.fut

@@ -0,0 +1,9 @@
+-- ==
+-- input { [1,2,3] [4,5,6] }
+-- output { [2.8284271247461903, 3.1622776601683795, 3.4641016151377544, 3.4641016151377544, 3.872983346207417, 4.242640687119285, 4.0, 4.47213595499958, 4.898979485566356] }
+-- structure { Screma 1 }
+
+entry main A B =
+  map (\a -> map (\b -> (a + 1) * b) B) A
+  |> flatten
+  |> map (f64.sqrt <-< f64.i32)