Move tests from tests/ghc-regress/* to just tests/*

1 files changed, 29 insertions, 0 deletions

diff --git a/testsuite/tests/ffi/should_run/fptr01_c.c b/testsuite/tests/ffi/should_run/fptr01_c.c
new file mode 100644
index 0000000000..0a0e1efe1c
--- /dev/null
+++ b/testsuite/tests/ffi/should_run/fptr01_c.c
@@ -0,0 +1,29 @@
+#include <stdio.h>
+
+#include "HsFFI.h"
+
+#include "fptr01.h"
+
+void f( HsInt *i )
+{
+    printf( "f%d\n", (int)*i );
+    fflush( stdout );
+}
+
+void g( HsInt *i )
+{
+    printf( "g%d\n", (int)*i );
+    fflush( stdout );
+}
+
+void h( HsInt *i )
+{
+    printf( "h%d\n", (int)*i );
+    fflush( stdout );
+}
+
+void f_env( HsInt *env, HsInt *i )
+{
+    printf( "f_env %d %d\n", *env, (int)*i );
+    fflush( stdout );
+}