From a4e321400b534d7f547cad8127ff6da45e1ac872 Mon Sep 17 00:00:00 2001 From: "Steven G. Johnson" Date: Fri, 3 Aug 2018 13:00:10 -0400 Subject: [PATCH] fabs -> fabsl Fixes two calls that were using `fabs` on a `long double` argument rather than `fabsl`, which looks like it is doing an unintentional truncation to `double` precision. --- interface/rotg.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/interface/rotg.c b/interface/rotg.c index 0925542..69443a5 100644 --- a/interface/rotg.c +++ b/interface/rotg.c @@ -22,8 +22,8 @@ void CNAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){ long double s; long double r, roe, z; - long double ada = fabs(da); - long double adb = fabs(db); + long double ada = fabsl(da); + long double adb = fabsl(db); long double scale = ada + adb; #ifndef CBLAS -- 2.7.4