testsuite/tests/codeGen/should_fail/CheckBoundsWriteArray.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE MagicHash #-}

module Main where

import GHC.Exts
import GHC.IO

main :: IO ()
main = do
    IO $ \s0 ->
      case newArray# 5# () s0 of
        (# s1, marr #) ->
          case writeArray# marr 5# () s1 of
            s2 -> (# s2, () #)