1 files changed, 22 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/embedded/cmmain.c b/ocaml-binary-annot/testsuite/tests/embedded/cmmain.c
new file mode 100644
index 0000000000..87647ac50d
--- /dev/null
+++ b/ocaml-binary-annot/testsuite/tests/embedded/cmmain.c
@@ -0,0 +1,22 @@
+/* Main program -- in C */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <caml/callback.h>
+
+extern int fib(int n);
+extern char * format_result(int n);
+
+int main(int argc, char ** argv)
+{
+  printf("Initializing Caml code...\n");
+#ifdef NO_BYTECODE_FILE
+  caml_startup(argv);
+#else
+  caml_main(argv);
+#endif
+  printf("Back in C code...\n");
+  printf("Computing fib(20)...\n");
+  printf("%s\n", format_result(fib(20)));
+  return 0;
+}