Test

benchmarks/dot/dot.f90

@@ -10,7 +10,6 @@ program benchmark_dot
    type(benchmark)          :: bench
    real(rk), allocatable    :: u(:), v(:)
    real(rk)                 :: a
-   real(rk), volatile       :: b
    integer(ik)              :: p
    integer                  :: nl, seed_size, i
    integer, allocatable     :: seed_array(:)
@@ -42,69 +41,69 @@ program benchmark_dot
       call bench%start_benchmark(1,'dot_product','a = dot_product(u,v)',[p])
       do nl = 1,bench%nloops
          a = dot_product(u,v)
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(2,'m1', "a = dot_product(u,v,'m1')",[p])
       do nl = 1,bench%nloops
          a = dot_product(u,v,'m1')
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(3,'m2', "a = dot_product(u,v,'m2')",[p])
       do nl = 1,bench%nloops
          a = dot_product(u,v,'m2')
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(4,'m3', "a = dot_product(u,v,'m3')",[p])
       do nl = 1,bench%nloops
          a = dot_product(u,v,'m3')
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(5,'m4', "a = dot_product(u,v,'m4')",[p])
       do nl = 1,bench%nloops
          a = dot_product(u,v,'m4')
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(6,'chunks', "a = fprod(u,v)",[p])
       do nl = 1,bench%nloops
          a = fprod(u,v)
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
 
       !===============================================================================
       call bench%start_benchmark(7,'kahan', "a = fprod_kahan(u,v)",[p])
       do nl = 1,bench%nloops
          a = fprod_kahan(u,v)
-         b = a
       end do
       call bench%stop_benchmark(cmp_gflops)
+      print*,a
       !===============================================================================
 
    end do