1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/dynlibs/T4464B.c b/testsuite/tests/dynlibs/T4464B.c
new file mode 100644
index 0000000000..0cd2845895
--- /dev/null
+++ b/testsuite/tests/dynlibs/T4464B.c
@@ -0,0 +1,21 @@
+
+#include <Rts.h>
+
+extern void __stginit_T4464H(void);
+
+void HsStart(void) {
+    int argc = 3;
+    char* argv[] = {"ghcDll", "+RTS", "-H50M", NULL}; // argv must end with NULL
+
+    // Initialize Haskell runtime
+    char** args = argv;
+    hs_init(&argc, &args);
+
+    // Tell Haskell about all root modules
+    hs_add_root(__stginit_T4464H);
+}
+
+void HsEnd(void) {
+    hs_exit();
+}
+