Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / parser / should_fail / NoNumericUnderscores1.hs
1 {-# LANGUAGE NoNumericUnderscores #-}
2
3 -- Test for NumericUnderscores extension.
4 -- See #14473
5 -- This is a testcase for floating literal
6 -- in NO NumericUnderscores extension.
7
8 module NoNumericUnderscores1 where
9
10 f :: Float -> ()
11 f 1_000.0_1 = ()
12 f _ = ()