Tests for trac#1344

testsuite/tests/ghc-regress/parser/should_fail/T1344a.hs

+module T1344a where
+
+a = "Hel\x6c000000000000000 World"
+b = "Hel\x6c0000000000000000 World"
+c = '\1114112'
+
+

testsuite/tests/ghc-regress/parser/should_fail/T1344a.stderr

+
+T1344a.hs:3:16:
+    numeric escape sequence out of range at character '0'

testsuite/tests/ghc-regress/parser/should_fail/T1344b.hs

+module T1344b where
+
+b = "Hel\x6c0000000000000000 World"
+

testsuite/tests/ghc-regress/parser/should_fail/T1344b.stderr

+
+T1344b.hs:3:16:
+    numeric escape sequence out of range at character '0'

testsuite/tests/ghc-regress/parser/should_fail/T1344c.hs

+module T1344c where
+
+c = '\1114112'
+

testsuite/tests/ghc-regress/parser/should_fail/T1344c.stderr

+
+T1344c.hs:3:13:
+    numeric escape sequence out of range at character '2'

testsuite/tests/ghc-regress/parser/should_fail/all.T

@@ -60,3 +60,6 @@ test('T3751', normal, compile_fail, [''])
 test('position001', normal, compile_fail, [''])
 test('position002', normal, compile_fail, [''])
 
+test('T1344a', normal, compile_fail, [''])
+test('T1344b', normal, compile_fail, [''])
+test('T1344c', normal, compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_run/T1344.hs

+-- Just new test.  This would work without the bug being fixed.
+
+a = '\x10ffff'
+b = "Hello\x000000002c\32World\o00000000000000000000000000000000041"
+c = "♯\00\&00\0"
+
+main = do print a
+          putStrLn b
+          print c
+

testsuite/tests/ghc-regress/parser/should_run/T1344.stdout

+'\1114111'
+Hello, World!
+"\9839\NUL00\NUL"

testsuite/tests/ghc-regress/parser/should_run/all.T

@@ -2,3 +2,4 @@ test('readRun001', normal, compile_and_run, [''])
 test('readRun002', normal, compile_and_run, [''])
 test('readRun003', normal, compile_and_run, [''])
 test('readRun004', expect_broken_for(1257, ['ghci']), compile_and_run, [''])
+test('T1344', normal, compile_and_run, [''])