Merge pull request #155 from jvdp1/small_corrections

small_corrections: small issues detected when compiled with ifort17.0.4

Author: jvdp1

src/tests/stats/test_mean.f90

@@ -5,8 +5,8 @@ program test_mean
 use stdlib_experimental_stats, only: mean
 implicit none
 
-real(sp), parameter :: sptol = 10 * epsilon(1._sp)
-real(dp), parameter :: dptol = 10 * epsilon(1._dp)
+real(sp), parameter :: sptol = 1000 * epsilon(1._sp)
+real(dp), parameter :: dptol = 1000 * epsilon(1._dp)
 
 real(sp) :: s1(3) = [1.0_sp, 2.0_sp, 3.0_sp]
 

src/tests/stats/test_var.f90

@@ -154,7 +154,7 @@ program test_var
     call assert( all( abs( var(d, 1, d < 11) -&
                  [20._dp / 3._dp, 20._dp / 3._dp, 0.5_dp]) < dptol))
     call assert( all( abs( var(d, 2, d < 11) -&
-                 [19.0_dp, 43._dp / 3._dp, 0.5 _dp, 0.5_dp]) < dptol))
+                 [19.0_dp, 43._dp / 3._dp, 0.5_dp, 0.5_dp]) < dptol))
 
     !3dim
     allocate(d3(size(d,1),size(d,2),3))
@@ -337,7 +337,7 @@ program test_var
     call assert( all( abs( var(i64, 1, i64 < 11) -&
                  [20._dp / 3._dp, 20._dp / 3._dp, 0.5_dp]) < dptol))
     call assert( all( abs( var(i64, 2, i64 < 11) -&
-                 [19.0_dp, 43._dp / 3._dp, 0.5 _dp, 0.5_dp]) < dptol))
+                 [19.0_dp, 43._dp / 3._dp, 0.5_dp, 0.5_dp]) < dptol))
 
     !3dim
     allocate(i643(size(d,1),size(d,2),3))