path: root/testsuite/tests/perf/should_run/T9339.hs

-- Tests that `last` successfully fuses.

main :: IO ()
main = print $ last $ filter odd $ [1::Int ..10000000]