[commit: ghc] master: Add another test for #10549 (c633f71)

[git at git.haskell.org]

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

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

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

commit c633f71f9b687dcb9154ffd558442193cbced0e3
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Oct 22 13:34:30 2015 +0200

    Add another test for #10549


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

c633f71f9b687dcb9154ffd558442193cbced0e3
 testsuite/tests/ghci/should_fail/T10549a.hs     | 5 +++++
 testsuite/tests/ghci/should_fail/T10549a.script | 1 +
 testsuite/tests/ghci/should_fail/all.T          | 1 +
 3 files changed, 7 insertions(+)

diff --git a/testsuite/tests/ghci/should_fail/T10549a.hs b/testsuite/tests/ghci/should_fail/T10549a.hs
new file mode 100644
index 0000000..8f442c7
--- /dev/null
+++ b/testsuite/tests/ghci/should_fail/T10549a.hs
@@ -0,0 +1,5 @@
+{-# OPTIONS_GHC -O #-}
+module Main(main) where
+import GHC.Exts
+main = print 1
+go (Ptr a) = a
diff --git a/testsuite/tests/ghci/should_fail/T10549a.script b/testsuite/tests/ghci/should_fail/T10549a.script
new file mode 100644
index 0000000..fabd668
--- /dev/null
+++ b/testsuite/tests/ghci/should_fail/T10549a.script
@@ -0,0 +1 @@
+:load T10549a.hs
diff --git a/testsuite/tests/ghci/should_fail/all.T b/testsuite/tests/ghci/should_fail/all.T
index cb46ac2..188975a 100644
--- a/testsuite/tests/ghci/should_fail/all.T
+++ b/testsuite/tests/ghci/should_fail/all.T
@@ -1,3 +1,4 @@
 setTestOpts(when(compiler_profiled(), skip))
 
 test('T10549', [], ghci_script, ['T10549.script'])
+test('T10549a', [], ghci_script, ['T10549a.script'])