testsuite: Add explicit flushs [WRONG!]

This seems conceptually wrong. I don't fully understand why we need this?

Author: angerman

testsuite/tests/annotations/should_compile/th/annth.hs

@@ -24,5 +24,6 @@ main = do
     runIO $ print (anns :: [String])
     anns <- reifyAnnotations (AnnLookupName 'TestTypeTH)
     runIO $ print (anns :: [String])
+    runIO $ hFlush stdout
     [| return () |] )
   hFlush stdout

testsuite/tests/simplStg/should_compile/T22840.hs

@@ -6,9 +6,11 @@ module C where
 import T22840A
 import T22840B
 import Control.Monad.IO.Class
+import System.IO (hFlush, stdout)
 
 $(liftIO $ do
     putStrLn "start"
     putStrLn (disp theT)
     putStrLn "end"
+    hFlush stdout
     return [])