add test program to package gsl

1 files changed, 18 insertions, 0 deletions

diff --git a/src/gsl-test.c b/src/gsl-test.c
new file mode 100644
index 0000000..fd13b2b
--- /dev/null
+++ b/src/gsl-test.c
@@ -0,0 +1,18 @@
+/* This file is part of mingw-cross-env.       */
+/* See doc/index.html for further information. */
+
+#include <stdio.h>
+#include <gsl/gsl_sf_bessel.h>
+
+int main(int argc, char *argv[]) 
+{
+    double x, y;
+
+    (void)argc;
+    (void)argv;
+
+    x = 5.0;
+    y = gsl_sf_bessel_J0 (x);
+    printf ("J0(%g) = %.18e\n", x, y);
+    return 0;
+}