path: root/testsuite/tests/ghc-regress/ffi/should_run/fptrfail01_c.c

#include <stdio.h>

#include "HsFFI.h"

#include "fptrfail01.h"

void f( HsInt *i )
{
    printf( "f%d\n", (int)*i );
    fflush( stdout );
}