add test for #5314

testsuite/tests/ghc-regress/profiling/should_run/5314.hs

+import Control.Concurrent
+import Control.Monad (forever)
+
+main = do
+    empty <- newEmptyMVar
+    exit <- newEmptyMVar
+    _ <- forkIO $ threadDelay 200000 >> putMVar exit ()
+    _ <- forkIO $ takeMVar empty >> return ()
+    _ <- forkIO $ print (sum [1..10000])
+    takeMVar exit

testsuite/tests/ghc-regress/profiling/should_run/5314.stdout

+50005000

testsuite/tests/ghc-regress/profiling/should_run/all.T

@@ -25,3 +25,10 @@ test('T3001-2',
 test('scc001', [expect_broken(4414), req_profiling],
      run_command, ['$MAKE -s --no-print-directory scc001'])
 
+
+test('5314',
+     composes([only_ways(prof_ways + extra_prof_ways),
+               extra_ways(extra_prof_ways),
+               req_profiling]),
+     compile_and_run,
+     [''])