diff options
Diffstat (limited to 'testsuite/tests/ghci.debugger/scripts/print022.hs')
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/print022.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/print022.hs b/testsuite/tests/ghci.debugger/scripts/print022.hs new file mode 100644 index 0000000000..f83873e5ea --- /dev/null +++ b/testsuite/tests/ghci.debugger/scripts/print022.hs @@ -0,0 +1,11 @@ +{-# LANGUAGE MagicHash #-} +import GHC.Exts +data T = C Int# Word# Float# Double# Char# Int Float Double +test = C 1# 32## 1.2# 1.23## 'x'# 1 1.2 1.23 + +data TwoFields = TwoFields Char Int deriving Show + +data T2 = C2 {-# UNPACK #-} !Int {-#UNPACK#-} !Word {-# UNPACK #-} !TwoFields deriving Show +test2 = C2 1 32 (TwoFields 'a' 3) + +f x = x
\ No newline at end of file |