safer to test dabs

2015-07-16 10:46:39 +02:00 · 2015-07-16 10:46:39 +02:00 · 168ba801f1
commit 168ba801f1
parent 06194a54be
1 changed files with 1 additions and 1 deletions
--- 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