From a420a378ac07cef10a3052abd86c02176994b13d Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Mon, 20 May 2019 18:28:19 +0200
Subject: [PATCH] complex-float: detect floating point exceptions

---
 src/c/number.d | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/c/number.d b/src/c/number.d
index 665a2ab2e..139500792 100644
--- a/src/c/number.d
+++ b/src/c/number.d
@@ -622,18 +622,27 @@ ecl_make_complex_float(cl_object r, cl_object i)
 }
 
 cl_object ecl_make_csfloat(float _Complex x) {
+  DO_DETECT_FPE(crealf(x));
+  DO_DETECT_FPE(cimagf(x));
+
   cl_object c = ecl_alloc_object(t_csfloat);
   ecl_csfloat(c) = x;
   return c;
 }
 
 cl_object ecl_make_cdfloat(double _Complex x) {
+  DO_DETECT_FPE(creal(x));
+  DO_DETECT_FPE(cimag(x));
+
   cl_object c = ecl_alloc_object(t_cdfloat);
   ecl_cdfloat(c) = x;
   return c;
 }
 
 cl_object ecl_make_clfloat(long double _Complex x) {
+  DO_DETECT_FPE(creall(x));
+  DO_DETECT_FPE(cimagl(x));
+
   cl_object c = ecl_alloc_object(t_clfloat);
   ecl_clfloat(c) = x;
   return c;