diff options
7 files changed, 10 insertions, 10 deletions
diff --git a/testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs b/testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs index af8e50b658..b42c4a104f 100644 --- a/testsuite/tests/ghc-regress/deSugar/should_compile/ds035.hs +++ b/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 diff --git a/testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs b/testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs index 204955228f..44a7bec6ce 100644 --- a/testsuite/tests/ghc-regress/deSugar/should_compile/ds057.hs +++ b/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# diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T b/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T index f46cf4da1c..427d172c6f 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T +++ b/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']) diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs index 77ac75fe64..c9e88f014a 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs +++ b/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 diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout index ab94e00e14..3e1d3bc371 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout @@ -1,8 +1,8 @@ -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 = _ diff --git a/testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs b/testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs index 8fd2320e26..9000e8558b 100644 --- a/testsuite/tests/ghc-regress/simplCore/should_compile/simpl004.hs +++ b/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 diff --git a/testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs b/testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs index ddfcf7a7c2..b5210a713c 100644 --- a/testsuite/tests/ghc-regress/typecheck/should_compile/tc185.hs +++ b/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 |