[commit: ghc] wip/T14373: test that no nested switches generated (efed656)

[git at git.haskell.org]

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

On branch  : wip/T14373
Link       : http://ghc.haskell.org/trac/ghc/changeset/efed6566078beace40443dd9acc2cdf73d0beb5c/ghc

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

commit efed6566078beace40443dd9acc2cdf73d0beb5c
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Dec 20 13:21:07 2017 +0100

    test that no nested switches generated


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

efed6566078beace40443dd9acc2cdf73d0beb5c
 testsuite/tests/codeGen/should_compile/T14373b.hs | 8 ++++++++
 testsuite/tests/codeGen/should_compile/all.T      | 6 ++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/codeGen/should_compile/T14373b.hs b/testsuite/tests/codeGen/should_compile/T14373b.hs
new file mode 100644
index 0000000..fb94274
--- /dev/null
+++ b/testsuite/tests/codeGen/should_compile/T14373b.hs
@@ -0,0 +1,8 @@
+import T14373
+
+{-# NOINLINE earlySwitch #-}
+earlySwitch A = True
+earlySwitch B = False
+earlySwitch C = False
+
+main = print $ earlySwitch B
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 60140f3..69ee2c7 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -35,5 +35,7 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
      compile, ['-g'])
 test('T12115', normal, compile, [''])
 test('T12355', normal, compile, [''])
-test('T14373', [],
-     multimod_compile, ['T14373a', '-fasm -O2 -c -ddump-cmm-from-stg -dsuppress-uniques'])
+test('T14373a', [],
+     multimod_compile, ['T14373a', '-fasm -O2 -ddump-cmm-from-stg -dsuppress-uniques'])
+test('T14373b', [],
+     multimod_compile, ['T14373b', '-fasm -O2 -ddump-cmm-from-stg -dsuppress-uniques'])