Use a bang pattern when we where/let-bind values with unlifted types

testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs

@@ -19,5 +19,5 @@ main = putStr (case len4_twice of
 	    _  -> "oops\n")
   where
     list4	= mk 4#
-    len4	= clen list4
-    len4_twice	= len4 +# len4
+    !len4	= clen list4
+    !len4_twice	= len4 +# len4

testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs

@@ -10,4 +10,4 @@ f# a# = (# '\0'#, a#  #)
 
 g :: Int -> (Char, Int)
 g (I# a#) = ( C# c#, I# b# )
-  where (# c#, b# #) = f# a#
+  where !(# c#, b# #) = f# a#

testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T

@@ -18,7 +18,7 @@ test('print016', normal, ghci_script, ['print016.script'])
 test('print017', normal, ghci_script, ['print017.script'])
 test('print018', normal, ghci_script, ['print018.script'])
 test('print019', normal, ghci_script, ['print019.script'])
-test('print020', normal, ghci_script, ['print020.script'])
+test('print020', expect_broken(2806), ghci_script, ['print020.script'])
 test('print021', normal, ghci_script, ['print021.script'])
 test('print022', normal, ghci_script, ['print022.script'])
 test('print023', normal, ghci_script, ['print023.script'])

testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs

@@ -5,4 +5,4 @@ import GHC.Base
 f :: Int -> Int# ->  Int#
 f x i = i
 
-test = let I# i = 3 in I#(f 2 i)
\ No newline at end of file
+test = let !(I# i) = 3 in I# (f 2 i)
\ No newline at end of file

testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout

-Stopped at dynbrk009.hs:8:18
+Stopped at dynbrk009.hs:8:21
 _result :: Int = _
-Stopped at dynbrk009.hs:8:23-31
+Stopped at dynbrk009.hs:8:26-35
 _result :: Int = _
-Stopped at dynbrk009.hs:8:26-30
+Stopped at dynbrk009.hs:8:30-34
 _result :: Int = _
 Stopped at dynbrk009.hs:6:0-8
 _result :: Int = _

testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs

@@ -8,7 +8,7 @@ import GHC.Exts
 
 f ixs@(_, ix_end) frozen# =
  let
-  n# = 
+  !n# =
    case (
 	 if null (range ixs)
 	  then 0

testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs

@@ -5,4 +5,4 @@
 module Bug where
 import GHC.Base
 
-foo v = let I# x# = 7 * 7 in "Forty-Two"
\ No newline at end of file
+foo v = let !(I# x#) = 7 * 7 in "Forty-Two"
\ No newline at end of file