package cfitsio: add test program

1 files changed, 31 insertions, 0 deletions

diff --git a/src/cfitsio-test.c b/src/cfitsio-test.c
new file mode 100644
index 0000000..7ae090c
--- /dev/null
+++ b/src/cfitsio-test.c
@@ -0,0 +1,31 @@
+/*
+ * This file is part of MXE.
+ * See index.html for further information.
+ */
+
+#include <string.h>
+#include <stdio.h>
+#include "fitsio.h"
+
+int main(int argc, char *argv[])
+{
+    (void)argc;
+
+    fitsfile *fptr;
+    char card[FLEN_CARD];
+    int status = 0,  nkeys, ii;  /* MUST initialize status */
+
+    fits_open_file(&fptr, argv[1], READONLY, &status);
+    fits_get_hdrspace(fptr, &nkeys, NULL, &status);
+
+    for (ii = 1; ii <= nkeys; ii++)  {
+      fits_read_record(fptr, ii, card, &status); /* read keyword */
+      printf("%s\n", card);
+    }
+    printf("END\n\n");  /* terminate listing with END */
+    fits_close_file(fptr, &status);
+
+    if (status)          /* print any error messages */
+        fits_report_error(stderr, status);
+    return(status);
+}