testsuite/tests/deSugar/should_run/T18151.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE Haskell2010 #-}
-- According to the Report this should reduce to (). However, in #18151 it was
-- reported that GHC bottoms.
x :: ()
x = seq (True `undefined`) ()
{-# NOINLINE x #-}

main :: IO ()
main = do
  print x