Capture original source for literals
[ghc.git] / testsuite / tests / ghc-api / annotations-literals / LiteralsTest.hs
1 {-# LANGUAGE MagicHash #-}
2 module LiteralsTest where
3
4 x,y :: Int
5 x = 0003
6 y = 0x04
7
8 s :: String
9 s = "\x20"
10
11 c :: Char
12 c = '\x20'
13
14 d :: Double
15 d = 0.00
16
17 blah = x
18 where
19 charH = '\x41'#
20 intH = 0004#
21 wordH = 005##
22 floatH = 3.20#
23 doubleH = 04.16##
24 x = 1