[commit: testsuite] master: fix test following changes to inlining heuristics (110d2c1)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/110d2c197bda03ab6ecff4769e311b61221afa8e

>---------------------------------------------------------------

commit 110d2c197bda03ab6ecff4769e311b61221afa8e
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed May 25 14:56:30 2011 +0100

    fix test following changes to inlining heuristics

>---------------------------------------------------------------

 .../ghc-regress/simplCore/should_compile/T4306.hs  |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/ghc-regress/simplCore/should_compile/T4306.hs b/tests/ghc-regress/simplCore/should_compile/T4306.hs
index 7675986..ba32981 100644
--- a/tests/ghc-regress/simplCore/should_compile/T4306.hs
+++ b/tests/ghc-regress/simplCore/should_compile/T4306.hs
@@ -6,5 +6,7 @@ module T4306 where
 data D = D {-# UNPACK #-} !Double {-# UNPACK #-} !Double  
 data UPD = UPD {-# UNPACK #-} !Double D
 
-upd (UPD _ (D x _)) = sqrt $! (x*x + x*x + sin x)
-
+upd (UPD _ (D x _)) = sqrt $! (x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x +
+                               x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x +
+                               x*x + x*x + sin x + x*x + x*x + cos x + x*x + x*x + tan x)
+                               -- make the rhs large enough to be worker/wrapperred