stdlib_exp_mean: modified ieee_value argument

Author: jvdp1

src/stdlib_experimental_stats_mean.fypp

@@ -19,7 +19,7 @@ contains
         ${t1}$ :: res
 
         if (.not.optval(mask, .true.)) then
-          res = ieee_value(real(res, kind=${k1}$), ieee_quiet_nan)
+          res = ieee_value(1._${k1}$, ieee_quiet_nan)
           return
         end if
 
@@ -38,7 +38,7 @@ contains
         real(dp) :: res
 
         if (.not.optval(mask, .true.)) then
-          res = ieee_value(res, ieee_quiet_nan)
+          res = ieee_value(1._dp, ieee_quiet_nan)
           return
         end if
 
@@ -59,7 +59,7 @@ contains
         ${t1}$ :: res${reduced_shape('x', rank, 'dim')}$
 
         if (.not.optval(mask, .true.)) then
-          res = ieee_value(real(res, kind=${k1}$), ieee_quiet_nan)
+          res = ieee_value(1._${k1}$, ieee_quiet_nan)
           return
         end if
 
@@ -84,7 +84,7 @@ contains
         real(dp) :: res${reduced_shape('x', rank, 'dim')}$
 
         if (.not.optval(mask, .true.)) then
-          res = ieee_value(res, ieee_quiet_nan)
+          res = ieee_value(1._dp, ieee_quiet_nan)
           return
         end if