Ticket #6158: testcase.hs

File testcase.hs, 360 bytes (added by Axman6, 3 years ago)

A minimal test case which produces the problem

Line 
1{-# LANGUAGE BangPatterns #-}
2
3module Main where
4   
5
6
7import qualified Data.Vector.Unboxed.Mutable      as UM
8import Control.Monad.Primitive   
9
10import System.IO.Unsafe (unsafePerformIO)
11
12
13
14foo :: ()
15foo = unsafePerformIO $ do
16            _ <- UM.replicate 1 0.0 :: IO (UM.MVector RealWorld Double)
17            return ()
18
19main :: IO ()
20main = print ()
21