blob: 1f04184365c20016acec70ec931a0db2a5162a93 (
plain)
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
]
|