Commit 296011e4 authored by Simon Marlow's avatar Simon Marlow
Browse files

test for NCG bug

parent daaf35de
......@@ -3,3 +3,4 @@ test('cg002', normal, compile, [''])
test('cg003', only_ways(['opt']), compile, ['-fvia-C'])
test('cg004', normal, compile, [''])
test('cg005', only_ways(['opt']), compile, [''])
test('cg006', normal, compile, [''])
{-# OPTIONS_GHC -cpp -fglasgow-exts #-}
module ShouldCompile where
-- exposed a bug in the NCG in 6.4.2
import GHC.Base
class Unboxable a where
writeUnboxable :: MutableByteArray# RealWorld -> a -> State# RealWorld -> State# RealWorld
writeUnboxable arr a s = writeInt8Array# arr 0# (getTag 0) s
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