T9404.hs\should_compile\typecheck\tests\testsuite - delta/haskell.git - gitlab.haskell.org: ghc/ghc.git

index : delta/haskell.git

gitlab.haskell.org: ghc/ghc.git

summary refs log tree commit diff

path: root/testsuite/tests/typecheck/should_compile/T9404.hs

blob: 4cb530a49226213a1dee59c2976229aade9c5d79 (plain)

{-# LANGUAGE UnboxedTuples #-}

module T9404 where

foo _ = case seq () (# #) of (# #) -> ()
foo2 _ = case () `seq` (# #) of (# #) -> ()