From ff1252fe3db1ba639fe148f45b0408a4f182da0d Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 14 Aug 2017 07:43:07 +0000
Subject: Tests and fixes
 https://github.com/genetics-statistics/GEMMA/issues/26

---
 src/main.cpp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/main.cpp')

diff --git a/src/main.cpp b/src/main.cpp
index 833136c..e37b154 100644
--- a/src/main.cpp
+++ b/src/main.cpp
@@ -25,10 +25,20 @@
 
 using namespace std;
 
+void gemma_gsl_error_handler (const char * reason,
+                              const char * file,
+                              int line, int gsl_errno) {
+  cerr << "GSL ERROR: " << reason << " in " << file
+       << " at line " << line << " errno " << gsl_errno <<endl;
+  exit(22);
+}
+
 int main(int argc, char *argv[]) {
   GEMMA cGemma;
   PARAM cPar;
 
+  gsl_set_error_handler (&gemma_gsl_error_handler);
+
   if (argc <= 1) {
     cGemma.PrintHeader();
     return EXIT_SUCCESS;
-- 
cgit v1.2.3