ghc/tests/programs/fexport/test.c

   1 #include "For_stub.h"
   2
   3 int
   4 main(int argc, char *argv[])
   5 {
   6   int i;
   7   char msg[] = "Hello, world\n";
   8
   9   startupHaskell(argc,argv);
  10
  11   for (i=0; i < sizeof(msg) - 1; i++) {
  12      putChar(msg[i]);
  13   }
  14   shutdownHaskell();
  15 }