path: root/testsuite/tests/parser/should_compile/T2245.hs

default (T)

data T = T deriving (Eq, Ord, Read, Show)
instance Num T
instance Fractional T

main = interact $ show . (< 1e400) . read