[commit: ghc] wip/T14373: WIP: works, but still too much (035a725)

[git at git.haskell.org]

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

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

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

commit 035a725c5ef51a2fcf51a17b43057c6f2b50913c
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Dec 17 12:31:25 2017 +0100

    WIP: works, but still too much


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

035a725c5ef51a2fcf51a17b43057c6f2b50913c
 testsuite/tests/codeGen/should_compile/T14373-common.hs          | 3 ---
 testsuite/tests/codeGen/should_compile/T14373.hs                 | 9 ++-------
 testsuite/tests/codeGen/should_compile/{T14373.hs => T14373a.hs} | 6 ++----
 testsuite/tests/codeGen/should_compile/all.T                     | 5 ++++-
 4 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/testsuite/tests/codeGen/should_compile/T14373-common.hs b/testsuite/tests/codeGen/should_compile/T14373-common.hs
deleted file mode 100644
index 98015ce..0000000
--- a/testsuite/tests/codeGen/should_compile/T14373-common.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module T14373 where
-
-data BigFam = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P deriving Enum
diff --git a/testsuite/tests/codeGen/should_compile/T14373.hs b/testsuite/tests/codeGen/should_compile/T14373.hs
index 35434d1..9ab2242 100644
--- a/testsuite/tests/codeGen/should_compile/T14373.hs
+++ b/testsuite/tests/codeGen/should_compile/T14373.hs
@@ -1,8 +1,3 @@
-{-# OPTIONS_GHC -ddump-cmm-from-stg -dsuppress-uniques #-}
+module T14373 where
 
-import T14373
-
-{-# NOINLINE lateSwitch #-}
-
-
-lateSwitch P = "Cool"
+data BigFam = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P deriving (Enum, Show)
diff --git a/testsuite/tests/codeGen/should_compile/T14373.hs b/testsuite/tests/codeGen/should_compile/T14373a.hs
similarity index 51%
copy from testsuite/tests/codeGen/should_compile/T14373.hs
copy to testsuite/tests/codeGen/should_compile/T14373a.hs
index 35434d1..7cce120 100644
--- a/testsuite/tests/codeGen/should_compile/T14373.hs
+++ b/testsuite/tests/codeGen/should_compile/T14373a.hs
@@ -1,8 +1,6 @@
-{-# OPTIONS_GHC -ddump-cmm-from-stg -dsuppress-uniques #-}
-
 import T14373
 
 {-# NOINLINE lateSwitch #-}
-
-
 lateSwitch P = "Cool"
+
+main = putStrLn $ lateSwitch P
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index b78a13e..4ee2dbf 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -35,4 +35,7 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
      compile, ['-g'])
 test('T12115', normal, compile, [''])
 test('T12355', normal, compile, [''])
-test('T14373a', normal, compile, [''])
+#test('T14373', [extra_files(['T14373.hs', 'T14373a.hs'])],
+#     multimod_compile, [''])
+test('T14373', [],
+     multimod_compile, ['T14373a', '-O2 -c -ddump-cmm-from-stg -dsuppress-uniques'])