testsuite/tests/array/should_run/T21962.hs


1
2
3
4
5
6
7
8
9
10
11

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

module Main where

import GHC.IO
import GHC.Exts

main :: IO ()
main = do
   IO $ \s0 -> case newArray# 0# () s0 of (# s1, arr #) -> (# s1, () #)