Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / parser / should_fail / NumericUnderscoresFail1.hs
1 {-# LANGUAGE NumericUnderscores #-}
2
3 -- Test for NumericUnderscores extension.
4 -- See #14473
5 -- This is a testcase for invalid case of NumericUnderscores.
6
7 main :: IO ()
8 main = do
9 print [
10 -- float
11 0_.0001,
12 _0.0001,
13 0.0001_,
14 0._0001,
15
16 -- float with exponent
17 1e_+23,
18 1e+23_,
19 1e+_23
20 ]