1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/driver/5313.hs b/testsuite/tests/driver/5313.hs
new file mode 100644
index 0000000000..14b809bf7d
--- /dev/null
+++ b/testsuite/tests/driver/5313.hs
@@ -0,0 +1,18 @@
+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 ()