diff options
Diffstat (limited to 'testsuite/tests/perf/should_run/T19474.hs')
-rw-r--r-- | testsuite/tests/perf/should_run/T19474.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/testsuite/tests/perf/should_run/T19474.hs b/testsuite/tests/perf/should_run/T19474.hs deleted file mode 100644 index 8379a4debd..0000000000 --- a/testsuite/tests/perf/should_run/T19474.hs +++ /dev/null @@ -1,15 +0,0 @@ -module T19474 where - -import Control.Monad -import qualified Data.Vector.Storable.Mutable as M - -main = do - v <- M.new 1 - forM_ [0..10000] $ \some -> do - addSome v 0 some - M.unsafeRead v 0 >>= print - -addSome :: M.IOVector Int -> Int -> Int -> IO () -addSome m idx some = do - val <- M.unsafeRead m idx - M.unsafeWrite m idx $ val + some |