Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / simplCore / should_compile / T4306.hs
1 -- #4306
2 -- Check that the worker for 'upd' has only one argument
3
4 module T4306 where
5
6 data D = D {-# UNPACK #-} !Double {-# UNPACK #-} !Double
7 data UPD = UPD {-# UNPACK #-} !Double D
8
9 upd (UPD _ (D x _)) = sqrt $! (x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x +
10 x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x +
11 x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x)
12 -- make the rhs large enough to be worker/wrapperred