Commit 15297b54 authored by Simon Marlow's avatar Simon Marlow

add test for #1852

parent 36fbd8ea
{-# OPTIONS_GHC -funbox-strict-fields #-}
import Data.List
data Vec4 = Vec4 !Float !Float !Float !Float
main :: IO ()
main = print traceList
traceList = concatMap (\(x,y) -> let (r,g,b,a) = getPixel (x,y) in [r,g,b,a])
[(0,0)]
where
getPixel (x,y) = (red,green,blue,alpha)
where
Vec4 fr fg fb fa = seq x (Vec4 1 2 3 4)
red = round fr
green = round fg
blue = round fb
alpha = round fa
......@@ -61,3 +61,5 @@ test('cg057', composes([expect_broken(948),
test('cg058', normal, compile_and_run, [''])
test('cg059', exit_code(1), compile_and_run, [''])
test('1852', normal, compile_and_run, [''])
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