Merge pull request fortran-lang#211 from jvdp1/some_cleaning

Remove some unused variables and simplify use of ieee_value

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
 

src/tests/ascii/test_ascii.f90

@@ -486,7 +486,6 @@ subroutine test_to_upper_long()
     !
     subroutine test_ascii_table
         integer :: i, j
-        character(len=1) :: c
         logical :: table(15,12)
 
         abstract interface

src/tests/linalg/test_linalg.f90

@@ -152,7 +152,7 @@ subroutine test_diag_rqp
 
   subroutine test_diag_csp
     integer, parameter :: n = 3
-    complex(sp) :: v(n), a(n,n), b(n,n)
+    complex(sp) :: a(n,n), b(n,n)
     complex(sp), parameter :: i_ = cmplx(0,1,kind=sp)
     integer :: i,j
     write(*,*) "test_diag_csp"
@@ -169,9 +169,8 @@ subroutine test_diag_csp
 
   subroutine test_diag_cdp
     integer, parameter :: n = 3
-    complex(dp) :: v(n), a(n,n), b(n,n)
+    complex(dp) :: a(n,n)
     complex(dp), parameter :: i_ = cmplx(0,1,kind=dp)
-    integer :: i,j
     write(*,*) "test_diag_cdp"
     a = diag([i_],-2) + diag([i_],2)
     call check(a(3,1) == i_ .and. a(1,3) == i_, &
@@ -180,9 +179,8 @@ subroutine test_diag_cdp
 
   subroutine test_diag_cqp
     integer, parameter :: n = 3
-    complex(qp) :: v(n), a(n,n), b(n,n)
+    complex(qp) :: a(n,n)
     complex(qp), parameter :: i_ = cmplx(0,1,kind=qp)
-    integer :: i,j
     write(*,*) "test_diag_cqp"
     a = diag([i_,i_],-1) + diag([i_,i_],1)
     call check(all(diag(a,-1) == i_) .and. all(diag(a,1) == i_), &