testsuite/tests/parser/should_fail/NoNumericUnderscores1.hs


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

{-# LANGUAGE NoNumericUnderscores #-}

-- Test for NumericUnderscores extension.
-- See #14473
-- This is a testcase for floating literal
-- in NO NumericUnderscores extension.

module NoNumericUnderscores1 where

f :: Float -> ()
f 1_000.0_1 = ()
f _   = ()