1 files changed, 30 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc059_c.c b/testsuite/tests/concurrent/should_run/conc059_c.c
new file mode 100644
index 0000000000..f15fbdd735
--- /dev/null
+++ b/testsuite/tests/concurrent/should_run/conc059_c.c
@@ -0,0 +1,30 @@
+#include "HsFFI.h"
+#include "conc059_stub.h"
+#include <unistd.h>
+#include <stdio.h>
+#if mingw32_HOST_OS
+#include <windows.h>
+#endif
+
+void __stginit_Test(void);
+
+int main(int argc, char *argv[])
+{
+    hs_init(&argc,&argv);
+    hs_add_root(__stginit_Test);
+    f(500000);
+#if mingw32_HOST_OS
+    Sleep(100);
+#else
+    usleep(100000);
+#endif
+    printf("exiting...\n");
+    hs_exit();
+    printf("exited.\n");
+#if mingw32_HOST_OS
+    Sleep(1000);
+#else
+    usleep(1000000);
+#endif
+    exit(0);
+}