[commit: ghc] wip/T13861: check other lump identity (65635a8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/65635a88ceca0cd69c1baf4ac9622ab97571103f/ghc

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

commit 65635a88ceca0cd69c1baf4ac9622ab97571103f
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Dec 29 12:24:41 2017 +0100

    check other lump identity


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

65635a88ceca0cd69c1baf4ac9622ab97571103f
 testsuite/tests/simplStg/should_run/T13861.hs     | 2 ++
 testsuite/tests/simplStg/should_run/T13861.stdout | 1 +
 2 files changed, 3 insertions(+)

diff --git a/testsuite/tests/simplStg/should_run/T13861.hs b/testsuite/tests/simplStg/should_run/T13861.hs
index 6442dce..0622899 100644
--- a/testsuite/tests/simplStg/should_run/T13861.hs
+++ b/testsuite/tests/simplStg/should_run/T13861.hs
@@ -104,6 +104,8 @@ test x = do
     (same $! r54) $! r55                -- yes, quux' is STG identity on 'Fal'
     let (r56, r57) = (Tru, lump r56)
     (same $! r56) $! r57                -- yes, lump is STG identity on 'Tru'
+    let (r58, r59) = (Fal, lump r58)
+    (same $! r58) $! r59                -- yes, lump is STG identity on 'Fal'
 
     let (r4,_) = bar r1
     let r5 = nested r4
diff --git a/testsuite/tests/simplStg/should_run/T13861.stdout b/testsuite/tests/simplStg/should_run/T13861.stdout
index 7fd4e43..155d985 100644
--- a/testsuite/tests/simplStg/should_run/T13861.stdout
+++ b/testsuite/tests/simplStg/should_run/T13861.stdout
@@ -12,5 +12,6 @@ yes
 yes
 yes
 yes
+yes
 no
 ("YAY","foo")