testsuite: Fix calculation about whether to pass -dynamic to compiler

hadrian/src/Rules/Test.hs

@@ -146,16 +146,12 @@ testRules = do
                 top <- topDirectory
                 depsPkgs <- mod_pkgs . packageDependencies <$> readPackageData progPkg
                 bindir <- getBinaryDirectory testGhc
-                debugged <- ghcDebugged <$> flavour <*> pure (stageOf testGhc)
-                dynPrograms <- dynamicGhcPrograms =<< flavour
+                test_args <- outOfTreeCompilerArgs
+                let dynPrograms = hasDynamic test_args
                 cmd [bindir </> "ghc" <.> exe] $
                     concatMap (\p -> ["-package", pkgName p]) depsPkgs ++
                     ["-o", top -/- path, top -/- sourcePath] ++
                     mextra ++
-                    -- If GHC is build with debug options, then build check-ppr
-                    -- also with debug options.  This allows, e.g., to print debug
-                    -- messages of various RTS subsystems while using check-ppr.
-                    (if debugged then ["-debug"] else []) ++
                     -- If GHC is build dynamic, then build check-ppr also dynamic.
                     (if dynPrograms then ["-dynamic"] else [])
 

hadrian/src/Settings/Builders/RunTest.hs

 {-# LANGUAGE TypeApplications #-}
-module Settings.Builders.RunTest (runTestBuilderArgs, runTestGhcFlags, assertSameCompilerArgs) where
+module Settings.Builders.RunTest (runTestBuilderArgs
+                                 , runTestGhcFlags
+                                 , assertSameCompilerArgs
+                                 , outOfTreeCompilerArgs
+                                 , TestCompilerArgs(..) ) where
 
 import Hadrian.Utilities
 import qualified System.FilePath