testsuite/tests/unboxedsums/T20859.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedSums #-}

module T20859 where

import GHC.Exts
  ( Double#, Int#, Word# )

foo :: (# Int# | Double# | Word# #) -> (# | | #) Int# Double# Word#
foo x = x