[commit: testsuite] master: Add #6158 test case. (f35caec)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f35caec46fdd44c4385f1e8dd21920a2b7a1024b

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

commit f35caec46fdd44c4385f1e8dd21920a2b7a1024b
Author: David Terei <davidterei at gmail.com>
Date:   Mon Jun 25 00:55:30 2012 -0700

    Add #6158 test case.

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

 tests/llvm/should_compile/6158.hs |   11 +++++++++++
 tests/llvm/should_compile/all.T   |    1 +
 2 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/tests/llvm/should_compile/6158.hs b/tests/llvm/should_compile/6158.hs
new file mode 100644
index 0000000..02f2d06
--- /dev/null
+++ b/tests/llvm/should_compile/6158.hs
@@ -0,0 +1,11 @@
+module M where
+
+import Control.Monad.Primitive
+import qualified Data.Vector.Unboxed.Mutable as V
+import System.IO.Unsafe (unsafePerformIO)
+
+foo :: ()
+foo = unsafePerformIO $ do
+    _ <- V.replicate 1 0.0 :: IO (V.MVector RealWorld Double)
+    return ()
+
diff --git a/tests/llvm/should_compile/all.T b/tests/llvm/should_compile/all.T
index fb3f07e..29e5ae1 100644
--- a/tests/llvm/should_compile/all.T
+++ b/tests/llvm/should_compile/all.T
@@ -9,4 +9,5 @@ test('5054', reqlib('hmatrix'), compile, ['-package hmatrix'])
 test('5054_2', reqlib('hmatrix'), compile, ['-package hmatrix'])
 test('5486', normal, compile, [''])
 test('5681', normal, compile, [''])
+test('6158', [reqlib('vector'), reqlib('primitive')], compile, ['-package vector -package primitive'])