[commit: testsuite] master: Test #8542 (813ba42)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/813ba429e21e6cefd47ed950c21319a8314da13d/testsuite

>---------------------------------------------------------------

commit 813ba429e21e6cefd47ed950c21319a8314da13d
Author: Krzysztof Gogolewski <krz.gogolewski at gmail.com>
Date:   Tue Nov 19 16:08:16 2013 +0100

    Test #8542


>---------------------------------------------------------------

813ba429e21e6cefd47ed950c21319a8314da13d
 tests/numeric/should_compile/T8542.hs     |    9 +++++++++
 tests/numeric/should_compile/T8542.stderr |    8 ++++++++
 tests/numeric/should_compile/all.T        |    1 +
 3 files changed, 18 insertions(+)

diff --git a/tests/numeric/should_compile/T8542.hs b/tests/numeric/should_compile/T8542.hs
new file mode 100644
index 0000000..438072b
--- /dev/null
+++ b/tests/numeric/should_compile/T8542.hs
@@ -0,0 +1,9 @@
+module T8542 where
+
+import GHC.Int
+
+x :: Int8
+x = -128
+
+y :: Int8
+y = 128
diff --git a/tests/numeric/should_compile/T8542.stderr b/tests/numeric/should_compile/T8542.stderr
new file mode 100644
index 0000000..9037797
--- /dev/null
+++ b/tests/numeric/should_compile/T8542.stderr
@@ -0,0 +1,8 @@
+
+T8542.hs:6:6: Warning:
+    Literal 128 of type Int8 overflows
+    If you are attempting to write a negative literal, use NegativeLiterals
+
+T8542.hs:9:5: Warning:
+    Literal 128 of type Int8 overflows
+    If you are attempting to write a negative literal, use NegativeLiterals
diff --git a/tests/numeric/should_compile/all.T b/tests/numeric/should_compile/all.T
index 01071c9..246642f 100644
--- a/tests/numeric/should_compile/all.T
+++ b/tests/numeric/should_compile/all.T
@@ -1,3 +1,4 @@
 test('T7116', normal, run_command, ['$MAKE -s --no-print-directory T7116'])
 test('T7895', normal, compile, [''])
 test('T7881', normal, compile, [''])
+test('T8542', normal, compile, [''])