testsuite/tests/parser/should_fail/NumericUnderscoresFail0.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE NumericUnderscores #-}

-- Test for NumericUnderscores extension.
-- See Trac #14473
-- This is a testcase for invalid case of NumericUnderscores.

main :: IO ()
main = do
    print [
            -- integer
            1000000_,
            _1000000
          ]