Commit 3a0ea74e authored by simonm's avatar simonm
Browse files

[project @ 1998-11-25 16:44:05 by simonm]

add simple IORef test.
parent c7c0523e
#-----------------------------------------------------------------------------
# $Id: Makefile,v 1.7 1998/10/08 11:52:34 simonm Exp $
# $Id: Makefile,v 1.8 1998/11/25 16:44:05 simonm Exp $
TOP = ../..
include $(TOP)/mk/boilerplate.mk
......@@ -15,6 +15,9 @@ list001_HC_OPTS = -fglasgow-exts
stableptr001_RUNTEST_OPTS = +RTS -K4m
dynamic001_HC_OPTS = -syslib exts
ioexts001_HC_OPTS = -fglasgow-exts -O
ioexts001_RUNTEST_OPTS = +RTS -K8m
SRC_MKDEPENDHS_OPTS += -syslib misc -syslib exts
include $(TOP)/mk/target.mk
......
{-# OPTIONS -fglasgow-exts #-}
module Main where
import IOExts
loop r 0 = return ()
loop r c = loop r (c-1) >> writeIORef r 42
main = newIORef 0 >>= \r -> loop r 1000000
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment