testsuite/tests/simplCore/should_compile/T8274.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE MagicHash #-}
module T8274 where

import GHC.Exts

data P = Positives Int# Float# Double# Char# Word#
data N = Negatives Int# Float# Double#

p = Positives 42# 4.23# 4.23## '4'# 4##
n = Negatives -4# -4.0# -4.0##