testsuite/tests/ffi/should_run/T5402_main.c


1
2
3
4
5
6
7
8
9
10
11
12
13

#include "HsFFI.h"
#include <stdio.h>
#include <stdlib.h>
#include "T5402_stub.h"

int main (int argc, char *argv[])
{
    hs_init(&argc,&argv);
    hs_init(&argc,&argv);
    hsmain();
    printf("I shouldn't be here\n");
    exit(1);
}