diff --git a/testsuite/tests/simplCore/should_compile/T4945.stdout b/testsuite/tests/simplCore/should_compile/T4945.stdout
deleted file mode 100644
index 2467d21eacc8ae22d36fa311b572ec1c283e5a88..0000000000000000000000000000000000000000
--- a/testsuite/tests/simplCore/should_compile/T4945.stdout
+++ /dev/null
@@ -1,7 +0,0 @@
-                               -> STUArray RealWorld Int Int
-                              (ipv3 [OS=OneShot] :: STUArray RealWorld Int Int) ->
-                                          case ipv3 of _ [Occ=Dead] { STUArray ds5 ds6 dt ds7 ->
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T
index 32aa8ea8bd86fe318e794004e733ba4c0dd69a81..30c63cf17aceb30048d84405a270aad5a0711541 100644
--- a/testsuite/tests/simplCore/should_compile/all.T
+++ b/testsuite/tests/simplCore/should_compile/all.T
@@ -108,7 +108,7 @@ test('T4918',
      ['$MAKE -s --no-print-directory T4918'])
 
 test('T4945',
-     when(compiler_lt('ghc', '7.1'), expect_fail),
+     normal,
      run_command,
      ['$MAKE -s --no-print-directory T4945'])