4 files changed, 2 insertions, 8 deletions
diff --git a/testsuite/tests/ghc-api/annotations/T10313.stdout b/testsuite/tests/ghc-api/annotations/T10313.stdout
index d1cc35cb61..29fa705666 100644
--- a/testsuite/tests/ghc-api/annotations/T10313.stdout
+++ b/testsuite/tests/ghc-api/annotations/T10313.stdout
@@ -10,8 +10,5 @@
  ([c], [(SourceText "foo\x63", fooc), (SourceText "b\x61r", bar)]),
  ([r], [(SourceText "foo1\x67", foo1g)]),
  ([s, t], [(SourceText "a\x62", ab)]),
- ([c, o],
-  [(SourceText "Strict Bitstream stre\x61m",
-    Strict Bitstream stream)]),
  ([s, c], [(SourceText "foo\x64", food)]),
  ([t, p], [(SourceText "foob\x61r", foobar)])]
diff --git a/testsuite/tests/ghc-api/annotations/Test10313.hs b/testsuite/tests/ghc-api/annotations/Test10313.hs
index 130e84b0e3..b8ed962a62 100644
--- a/testsuite/tests/ghc-api/annotations/Test10313.hs
+++ b/testsuite/tests/ghc-api/annotations/Test10313.hs
@@ -28,8 +28,7 @@ foreign import prim unsafe "a\x62" a :: IO Int
 
 {-# INLINE strictStream #-}
 strictStream (Bitstream l v)
-    = {-# CORE "Strict Bitstream stre\x61m" #-}
-      S.concatMap stream (GV.stream v)
+    = S.concatMap stream (GV.stream v)
       `S.sized`
       Exact l
 
diff --git a/testsuite/tests/ghc-api/annotations/stringSource.hs b/testsuite/tests/ghc-api/annotations/stringSource.hs
index 776aebd048..2bc2638e84 100644
--- a/testsuite/tests/ghc-api/annotations/stringSource.hs
+++ b/testsuite/tests/ghc-api/annotations/stringSource.hs
@@ -84,7 +84,6 @@ testOneFile libdir fileName = do
      doHsExpr _ = []
 
      doPragE :: HsPragE GhcPs -> [(String,[Located (SourceText,FastString)])]
-     doPragE (HsPragCore _ src ss) = [("co",[conv (noLoc ss)])]
      doPragE (HsPragSCC  _ src ss) = [("sc",[conv (noLoc ss)])]
      doPragE (HsPragTick _ src (ss,_,_) _ss2) = [("tp",[conv (noLoc ss)])]
 
diff --git a/testsuite/tests/printer/Ppr009.hs b/testsuite/tests/printer/Ppr009.hs
index d24ecdc517..baaeb211db 100644
--- a/testsuite/tests/printer/Ppr009.hs
+++ b/testsuite/tests/printer/Ppr009.hs
@@ -3,7 +3,6 @@ module Ppr009 where
 
 {-# INLINE strictStream #-}
 strictStream (Bitstream l v)
-    = {-# CORE "Strict Bitstream stream" #-}
-      S.concatMap stream (GV.stream v)
+    = S.concatMap stream (GV.stream v)
       `S.sized`
       Exact l