test for #5313

testsuite/tests/ghc-regress/driver/5313.hs

+import qualified GHC
+import System.Environment
+
+main = do
+  (libdir:_) <- getArgs
+  GHC.runGhcT (Just libdir) $ do
+      -- begin initialize
+      df0 <- GHC.getSessionDynFlags
+      let df1 = df0{GHC.ghcMode    = GHC.CompManager,
+                    GHC.hscTarget  = GHC.HscInterpreted,
+                    GHC.ghcLink    = GHC.LinkInMemory,
+                    GHC.verbosity  = 0}
+      _ <- GHC.setSessionDynFlags df1
+      -- begin reset
+      GHC.setContext [] []
+      GHC.setTargets []
+      _ <- GHC.load GHC.LoadAllTargets
+      return ()

testsuite/tests/ghc-regress/driver/all.T

@@ -301,6 +301,14 @@ test('dynHelloWorld',
      compile_and_run,
      [''])
 
+# simple test that we can load and use the GHC package in all ways
+# (in #5313 it was failing the dyn way)
+p = subprocess.Popen([config.compiler, "--print-libdir"], stdout=subprocess.PIPE)
+libdir = p.stdout.read()
+p.stdout.close
+
+test('5313', extra_run_opts(libdir), compile_and_run, ['-package ghc'])
+
 test('2464', normal, compile, [''])
 test('3674', ignore_output, run_command, 
              ['$MAKE -s --no-print-directory 3674'])