Make kokkos_allocate_view tests relative difference for float/double.

Author: womeld

test/flcl-test-f.f90

@@ -3275,7 +3275,7 @@ & function test_kokkos_allocate_view_r32_1d() &
           do ii = 1, e0_length
             f_sum = f_sum + array_r32_1d(ii)
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_single * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r32_1d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum
@@ -3313,7 +3313,7 @@ & function test_kokkos_allocate_view_r64_1d() &
           do ii = 1, e0_length
             f_sum = f_sum + array_r64_1d(ii)
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_double * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r64_1d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum
@@ -3485,7 +3485,7 @@ & function test_kokkos_allocate_view_r32_2d() &
               f_sum = f_sum + array_r32_2d(ii,jj)
             end do
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_single * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r32_2d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum
@@ -3527,7 +3527,7 @@ & function test_kokkos_allocate_view_r64_2d() &
               f_sum = f_sum + array_r64_2d(ii,jj)
             end do
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_double * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r64_2d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum
@@ -3715,7 +3715,7 @@ & function test_kokkos_allocate_view_r32_3d() &
               end do
             end do
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_single * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r32_3d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum
@@ -3761,7 +3761,7 @@ & function test_kokkos_allocate_view_r64_3d() &
               end do
             end do
           end do
-          if ( f_sum .eq. c_sum ) then
+          if ( abs(f_sum - c_sum ) < (precision_double * c_sum) ) then
             write(*,*)'PASSED kokkos_allocate_view_r64_3d'
             write(*,*)'f_sum = ',f_sum
             write(*,*)'c_sum = ',c_sum