blob: 0a6a3051d692d745f6b6bd865f1ee16c6cc86886 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE NumericUnderscores #-}
-- Test for NumericUnderscores extension.
-- See Trac #14473
-- This is a testcase for invalid case of NumericUnderscores.
main :: IO ()
main = do
print [
-- float
0_.0001,
_0.0001,
0.0001_,
0._0001,
-- float with exponent
1e_+23,
1e+23_,
1e+_23
]
|