[GHC] #1791: -M option does not work

[GHC]

#1791: -M option does not work
-----------------------+----------------------------------------------------
  Reporter:  guest     |          Owner:         
      Type:  bug       |         Status:  new    
  Priority:  normal    |      Milestone:         
 Component:  Compiler  |        Version:  6.8    
  Severity:  blocker   |       Keywords:         
Difficulty:  Unknown   |             Os:  Unknown
  Testcase:            |   Architecture:  Unknown
-----------------------+----------------------------------------------------
 I want to use the -M option for the goals that are stated in the manual.

 {{{
 ./TestProgram +RTS -M5m -RTS
 }}}
 Expected output:
 {{{
 Something like "out of heap space"
 }}}
 Actual result:
 {{{
 Machine going into a state where it swaps memory
 }}}

 This is the code for TestProgram:
 {{{
 import Control.Monad.ST
 import Data.Array.ST
 import Data.Array.MArray
 import Data.Array.Base(unsafeNewArray_)
 main = print (runST (do make_empty_table >> return ()))

 make_empty_table::  ST s (STArray s (Int, Int) (Maybe ep))
 make_empty_table =
        unsafeNewArray_ ((1, 1), (16384, 16384))
 }}}

 This was tested with 6.9.20071018 on an athlon-xp, and confirmed by
 dcoutts also on x86-64 with ghc-6.8.0.20071015.

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/1791>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler