Merge branch 'intrinsics' of https://github.com/jalvesz/stdlib into i…

…ntrinsics

.github/workflows/ci_windows.yml

@@ -13,8 +13,7 @@ jobs:
       fail-fast: false
       matrix:
         include: [
-          { msystem: MINGW64, arch: x86_64 },
-          { msystem: MINGW32, arch: i686   }
+          { msystem: MINGW64, arch: x86_64 }
         ]
     defaults:
       run:

README.md

@@ -90,15 +90,15 @@ Name | Version | Platform | Architecture
 GCC Fortran | 10, 11, 12, 13 | Ubuntu 22.04.2 LTS | x86_64
 GCC Fortran | 10, 11, 12, 13 | macOS 12.6.3 (21G419) | x86_64
 GCC Fortran (MSYS) | 13 | Windows Server 2022 (10.0.20348 Build 1547) | x86_64
-GCC Fortran (MinGW) | 13 | Windows Server 2022 (10.0.20348 Build 1547) | x86_64, i686
+GCC Fortran (MinGW) | 13 | Windows Server 2022 (10.0.20348 Build 1547) | x86_64
 Intel oneAPI LLVM | 2024.0 | Ubuntu 22.04.2 LTS | x86_64
 Intel oneAPI classic | 2023.1 | macOS 12.6.3 (21G419) | x86_64
 
 The following combinations are known to work, but they are not tested in the CI:
 
 Name | Version | Platform | Architecture
 --- | --- | --- | ---
-GCC Fortran (MinGW) | 9.3.0, 10.2.0, 11.2.0 | Windows 10 | x86_64, i686
+GCC Fortran (MinGW) | 9.3.0, 10.2.0, 11.2.0 | Windows 10 | x86_64
 
 We try to test as many available compilers and platforms as possible.
 A list of tested compilers which are currently not working and the respective issue are listed below.

src/stdlib_linalg_norms.fypp

@@ -210,7 +210,6 @@ submodule(stdlib_linalg) stdlib_linalg_norms
 
         integer(ilp) :: i
         real(${rk}$) :: rorder
-        intrinsic :: abs, sum, sqrt, maxval, minval, conjg
 
         ! Initialize norm to zero
         nrm = 0.0_${rk}$
@@ -286,8 +285,6 @@ submodule(stdlib_linalg) stdlib_linalg_norms
 
         type(linalg_state_type) :: err_
         integer(ilp) :: sze,norm_request
-        real(${rk}$) :: rorder
-        intrinsic :: abs, sum, sqrt, maxval, minval, conjg
 
         sze = size(a,kind=ilp)
 
@@ -371,11 +368,9 @@ submodule(stdlib_linalg) stdlib_linalg_norms
         type(linalg_state_type) :: err_
         integer(ilp) :: sze,lda,norm_request,${loop_variables('j',rank-1,1)}$
         logical :: contiguous_data
-        real(${rk}$) :: rorder
         integer(ilp), dimension(${rank}$) :: spe,spack,perm,iperm
         integer(ilp), dimension(${rank}$), parameter :: dim_range = [(lda,lda=1_ilp,${rank}$_ilp)]
         ${rt}$, allocatable :: apack${ranksuffix(rank)}$
-        intrinsic :: abs, sum, sqrt, norm2, maxval, minval, conjg
 
         ! Input matrix properties
         sze = size (a,kind=ilp)
@@ -512,7 +507,7 @@ ${loop_variables_end(rank-1," "*12)}$
         type(linalg_state_type), intent(out), optional :: err  
         
         type(linalg_state_type) :: err_
-        integer(ilp) :: j,m,n,lda,dims(2),norm_request,svd_errors
+        integer(ilp) :: m,n,lda,dims(2),svd_errors
         integer(ilp), dimension(${rank}$) :: s,spack,perm,iperm
         integer(ilp), dimension(${rank}$), parameter :: dim_range = [(m,m=1_ilp,${rank}$_ilp)]
         integer(ilp) :: ${loop_variables('j',rank-2,2)}$

src/stdlib_sparse_conversion.fypp

@@ -460,7 +460,6 @@ contains
 
     #:for k1, t1, s1 in (KINDS_TYPES)
     recursive subroutine quicksort_i_${s1}$(a, b, first, last)
-        integer, parameter :: wp = sp
         integer(ilp), intent(inout) :: a(*) !! reference table to sort
         ${t1}$, intent(inout)  :: b(*) !! secondary real data to sort w.r.t. a
         integer(ilp), intent(in)     :: first, last