Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f35caec46fdd44c4385f1e8dd21920a2b7a1024b >--------------------------------------------------------------- commit f35caec46fdd44c4385f1e8dd21920a2b7a1024b Author: David Terei <[email protected]> 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']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
