[commit: ghc] master: Add testcase for #7411 (15cb83d)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/15cb83d4e98c2c356bf0e3eb0df6d322755337bd/ghc

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

commit 15cb83d4e98c2c356bf0e3eb0df6d322755337bd
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Aug 27 15:04:29 2015 +0200

    Add testcase for #7411


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

15cb83d4e98c2c356bf0e3eb0df6d322755337bd
 testsuite/tests/simplCore/should_fail/T7411.hs     | 3 +++
 testsuite/tests/simplCore/should_fail/T7411.stderr | 2 ++
 testsuite/tests/simplCore/should_fail/all.T        | 3 +++
 3 files changed, 8 insertions(+)

diff --git a/testsuite/tests/simplCore/should_fail/T7411.hs b/testsuite/tests/simplCore/should_fail/T7411.hs
new file mode 100644
index 0000000..10bc0b3
--- /dev/null
+++ b/testsuite/tests/simplCore/should_fail/T7411.hs
@@ -0,0 +1,3 @@
+import Control.Exception
+import Control.DeepSeq
+main = evaluate (('a' : undefined) `deepseq` return () :: IO ())
diff --git a/testsuite/tests/simplCore/should_fail/T7411.stderr b/testsuite/tests/simplCore/should_fail/T7411.stderr
new file mode 100644
index 0000000..c02ad80
--- /dev/null
+++ b/testsuite/tests/simplCore/should_fail/T7411.stderr
@@ -0,0 +1,2 @@
+T7411: Prelude.undefined
+
diff --git a/testsuite/tests/simplCore/should_fail/all.T b/testsuite/tests/simplCore/should_fail/all.T
new file mode 100644
index 0000000..8e9e45a
--- /dev/null
+++ b/testsuite/tests/simplCore/should_fail/all.T
@@ -0,0 +1,3 @@
+test('T7411', [expect_broken_for(7411, ['optasm', 'optllvm',
+                                        'hpc', 'threaded2', 'dyn']),
+               exit_code(1)], compile_and_run, [''])
\ No newline at end of file