From 168ba801f1e1a2a25504ff286650350fcec6e487 Mon Sep 17 00:00:00 2001 From: Radovan Bast Date: Thu, 16 Jul 2015 10:46:39 +0200 Subject: [PATCH] safer to test dabs --- test/fc_blas/src/example.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/fc_blas/src/example.f90 b/test/fc_blas/src/example.f90 index 3ce199c..2341e7e 100644 --- a/test/fc_blas/src/example.f90 +++ b/test/fc_blas/src/example.f90 @@ -22,7 +22,7 @@ program example do i = 1, n do j = 1, n - if ((c(i, j) - 20.0d0) > tiny(0.0d0)) return + if (dabs(c(i, j) - 20.0d0) > tiny(0.0d0)) return end do end do