aba129e944f85c2385a11123606d84f5e176535c
[ghc.git] / testsuite / tests / dynlibs / T3807-export.c
1
2 #include <HsFFI.h>
3
4 extern void __stginit_T3807Export(void);
5
6 void
7 test_init (void)
8 {
9 static char *argv[] = { "T3807test.so", 0 };
10 static char **argv_ = argv;
11 static int argc = 1;
12
13 hs_init (&argc, &argv_);
14 hs_add_root (__stginit_T3807Export);
15 }
16
17 void
18 test_exit (void)
19 {
20 hs_exit ();
21 }