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