GCC 15.1 fixes

CMakeLists.txt

@@ -31,6 +31,13 @@ if(CMAKE_Fortran_COMPILER_ID STREQUAL GNU AND CMAKE_Fortran_COMPILER_VERSION VER
  message(FATAL_ERROR "GCC Version 9 or newer required")
 endif()
 
+# --- silence gfortran-15 argument-mismatch warnings
+if(CMAKE_Fortran_COMPILER_ID STREQUAL GNU
+ AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 15.0
+ AND CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 16.0)
+ add_compile_options("$<$<COMPILE_LANGUAGE:Fortran>:-Wno-external-argument-mismatch>")
+endif()
+
 # --- compiler feature checks
 include(CheckFortranSourceCompiles)
 include(CheckFortranSourceRuns)

test/linalg/test_linalg_cholesky.fypp

@@ -22,7 +22,7 @@ module test_linalg_cholesky
  allocate(tests(0))
 
  #:for rk,rt,ri in RC_KINDS_TYPES
- tests = [tests,new_unittest("least_cholesky_${ri}$",test_cholesky_${ri}$)]
+ call add_test(tests,new_unittest("least_cholesky_${ri}$",test_cholesky_${ri}$))
  #:endfor
 
  end subroutine test_cholesky_factorization
@@ -66,6 +66,26 @@ module test_linalg_cholesky
 
  #:endfor
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
 
 end module test_linalg_cholesky
 

test/linalg/test_linalg_determinant.fypp

@@ -23,13 +23,13 @@ module test_linalg_determinant
 
  #:for rk,rt in RC_KINDS_TYPES
  #:if rk!="xdp"
- tests = [tests,new_unittest("$eye_det_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_determinant)]
- tests = [tests,new_unittest("$eye_det_multiple_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_multiple)]
+ call add_test(tests,new_unittest("$eye_det_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_determinant))
+ call add_test(tests,new_unittest("$eye_det_multiple_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_multiple))
  #:endif
  #:endfor
  #:for ck,ct in CMPLX_KINDS_TYPES
  #:if ck!="xdp"
- tests = [tests,new_unittest("$complex_det_${rt[0]}$${rk}$",test_${ct[0]}$${ck}$_complex_determinant)]
+ call add_test(tests,new_unittest("$complex_det_${rt[0]}$${rk}$",test_${ct[0]}$${ck}$_complex_determinant))
  #:endif
  #: endfor
 
@@ -143,6 +143,27 @@ module test_linalg_determinant
 
  #:endif
  #:endfor
+
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
 
 end module test_linalg_determinant
 

test/linalg/test_linalg_eigenvalues.fypp

@@ -21,17 +21,17 @@ module test_linalg_eigenvalues
  allocate(tests(0))
 
  #:for rk,rt,ri in REAL_KINDS_TYPES
- tests = [tests,new_unittest("test_eig_real_${ri}$",test_eig_real_${ri}$), &
-  new_unittest("test_eigvals_identity_${ri}$",test_eigvals_identity_${ri}$), & 
-  new_unittest("test_eigvals_diagonal_B_${ri}$",test_eigvals_diagonal_B_${ri}$), &
-  new_unittest("test_eigvals_nondiagonal_B_${ri}$",test_eigvals_nondiagonal_B_${ri}$), &
-  new_unittest("test_eigh_real_${ri}$",test_eigh_real_${ri}$)] 
+ call add_test(tests,new_unittest("test_eig_real_${ri}$",test_eig_real_${ri}$))
+ call add_test(tests,new_unittest("test_eigvals_identity_${ri}$",test_eigvals_identity_${ri}$))
+ call add_test(tests,new_unittest("test_eigvals_diagonal_B_${ri}$",test_eigvals_diagonal_B_${ri}$))
+ call add_test(tests,new_unittest("test_eigvals_nondiagonal_B_${ri}$",test_eigvals_nondiagonal_B_${ri}$))
+ call add_test(tests,new_unittest("test_eigh_real_${ri}$",test_eigh_real_${ri}$))
  #: endfor
 
  #:for ck,ct,ci in CMPLX_KINDS_TYPES
- tests = [tests,new_unittest("test_eig_complex_${ci}$",test_eig_complex_${ci}$), &
-  new_unittest("test_eig_generalized_complex_${ci}$",test_eigvals_generalized_complex_${ci}$), &
-  new_unittest("test_eig_issue_927_${ci}$",test_issue_927_${ci}$)] 
+ call add_test(tests,new_unittest("test_eig_complex_${ci}$",test_eig_complex_${ci}$))
+ call add_test(tests,new_unittest("test_eig_generalized_complex_${ci}$",test_eigvals_generalized_complex_${ci}$))
+ call add_test(tests,new_unittest("test_eig_issue_927_${ci}$",test_issue_927_${ci}$))
  #: endfor 
 
  end subroutine test_eig_eigh
@@ -347,8 +347,26 @@ module test_linalg_eigenvalues
 
  #:endfor
 
-
-
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
 
 end module test_linalg_eigenvalues
 

test/linalg/test_linalg_inverse.fypp

@@ -22,9 +22,9 @@ module test_linalg_inverse
  allocate(tests(0))
 
  #:for rk,rt,ri in RC_KINDS_TYPES
- tests = [tests,new_unittest("${ri}$_eye_inverse",test_${ri}$_eye_inverse), &
-  new_unittest("${ri}$_singular_inverse",test_${ri}$_singular_inverse), &
-  new_unittest("${ri}$_random_spd_inverse",test_${ri}$_random_spd_inverse)]
+ call add_test(tests,new_unittest("${ri}$_eye_inverse",test_${ri}$_eye_inverse)) 
+ call add_test(tests,new_unittest("${ri}$_singular_inverse",test_${ri}$_singular_inverse)) 
+ call add_test(tests,new_unittest("${ri}$_random_spd_inverse",test_${ri}$_random_spd_inverse))
  #:endfor
 
  end subroutine test_inverse_matrix
@@ -291,6 +291,27 @@ module test_linalg_inverse
 
  #:endfor
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
+
 end module test_linalg_inverse
 
 program test_inv

test/linalg/test_linalg_lstsq.fypp

@@ -21,11 +21,11 @@ module test_linalg_least_squares
 
  allocate(tests(0))
 
- tests = [tests,new_unittest("issue_823",test_issue_823)]
+ call add_test(tests,new_unittest("issue_823",test_issue_823))
 
  #:for rk,rt,ri in REAL_KINDS_TYPES
- tests = [tests,new_unittest("least_squares_${ri}$",test_lstsq_one_${ri}$), &
-  new_unittest("least_squares_randm_${ri}$",test_lstsq_random_${ri}$)]
+ call add_test(tests,new_unittest("least_squares_${ri}$",test_lstsq_one_${ri}$))
+ call add_test(tests,new_unittest("least_squares_randm_${ri}$",test_lstsq_random_${ri}$))
  #:endfor
 
  end subroutine test_least_squares
@@ -139,6 +139,27 @@ module test_linalg_least_squares
 
  end subroutine test_issue_823
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
+
 end module test_linalg_least_squares
 
 program test_lstsq

test/linalg/test_linalg_mnorm.fypp

@@ -18,9 +18,9 @@ module test_linalg_mnorm
  allocate(tests(0))
 
  #:for rk,rt,ri in RC_KINDS_TYPES
- tests = [tests,new_unittest("test_matrix_norms_${ri}$",test_matrix_norms_${ri}$)]
+ call add_test(tests,new_unittest("test_matrix_norms_${ri}$",test_matrix_norms_${ri}$))
  #:for rank in range(3, MAXRANK)
- tests = [tests,new_unittest("test_mnorm_${ri}$_${rank}$d",test_mnorm_${ri}$_${rank}$d)]
+ call add_test(tests,new_unittest("test_mnorm_${ri}$_${rank}$d",test_mnorm_${ri}$_${rank}$d))
  #:endfor
  #:endfor
 
@@ -135,6 +135,27 @@ module test_linalg_mnorm
 
  #:endfor
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
+
 end module test_linalg_mnorm
 
 program test_mnorm

test/linalg/test_linalg_norm.fypp

@@ -32,16 +32,16 @@ module test_linalg_norm
  allocate(tests(0))
 
  #:for rk,rt,ri in RC_KINDS_TYPES
- tests = [tests,new_unittest("strided_1d_norm_${ri}$",test_strided_1d_${ri}$)]
+ call add_test(tests,new_unittest("strided_1d_norm_${ri}$",test_strided_1d_${ri}$))
  #:for rank in range(1, MAXRANK)
- tests = [tests,new_unittest("norm_${ri}$_${rank}$d",test_norm_${ri}$_${rank}$d)]  
+ call add_test(tests,new_unittest("norm_${ri}$_${rank}$d",test_norm_${ri}$_${rank}$d)) 
  #:endfor
  #:for rank in range(2, MAXRANK)
  #:if rt.startswith('real')
- tests = [tests,new_unittest("norm2_${ri}$_${rank}$d",test_norm2_${ri}$_${rank}$d)] 
+ call add_test(tests,new_unittest("norm2_${ri}$_${rank}$d",test_norm2_${ri}$_${rank}$d)) 
  #:endif
- tests = [tests,new_unittest("maxabs_${ri}$_${rank}$d",test_maxabs_${ri}$_${rank}$d)] 
- tests = [tests,new_unittest("norm_dimmed_${ri}$_${rank}$d",test_norm_dimmed_${ri}$_${rank}$d)] 
+ call add_test(tests,new_unittest("maxabs_${ri}$_${rank}$d",test_maxabs_${ri}$_${rank}$d)) 
+ call add_test(tests,new_unittest("norm_dimmed_${ri}$_${rank}$d",test_norm_dimmed_${ri}$_${rank}$d)) 
  #:endfor
  #:endfor
 
@@ -268,6 +268,26 @@ module test_linalg_norm
  #:endfor
  #:endfor
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
 
 end module test_linalg_norm
 

test/linalg/test_linalg_pseudoinverse.fypp

@@ -21,13 +21,13 @@ module test_linalg_pseudoinverse
  allocate(tests(0))
 
  #:for rk,rt,ri in REAL_KINDS_TYPES
- tests = [tests,new_unittest("${ri}$_eye_pseudoinverse",test_${ri}$_eye_pseudoinverse)]  
+ call add_test(tests,new_unittest("${ri}$_eye_pseudoinverse",test_${ri}$_eye_pseudoinverse)) 
  #:endfor
  #:for rk,rt,ri in RC_KINDS_TYPES
- tests = [tests,new_unittest("${ri}$_square_pseudoinverse",test_${ri}$_square_pseudoinverse), &
-  new_unittest("${ri}$_tall_pseudoinverse",test_${ri}$_tall_pseudoinverse), &
-  new_unittest("${ri}$_wide_pseudoinverse",test_${ri}$_wide_pseudoinverse), &
-  new_unittest("${ri}$_singular_pseudoinverse",test_${ri}$_singular_pseudoinverse)]
+ call add_test(tests,new_unittest("${ri}$_square_pseudoinverse",test_${ri}$_square_pseudoinverse))
+ call add_test(tests,new_unittest("${ri}$_tall_pseudoinverse",test_${ri}$_tall_pseudoinverse))
+ call add_test(tests,new_unittest("${ri}$_wide_pseudoinverse",test_${ri}$_wide_pseudoinverse))
+ call add_test(tests,new_unittest("${ri}$_singular_pseudoinverse",test_${ri}$_singular_pseudoinverse))
  #:endfor
 
  end subroutine test_pseudoinverse_matrix
@@ -218,6 +218,27 @@ module test_linalg_pseudoinverse
 
  #:endfor
 
+ ! gcc-15 bugfix utility
+ subroutine add_test(tests,new_test)
+ type(unittest_type), allocatable, intent(inout) :: tests(:) 
+ type(unittest_type), intent(in) :: new_test
+
+ integer :: n
+ type(unittest_type), allocatable :: new_tests(:)
+
+ if (allocated(tests)) then 
+ n = size(tests)
+ else
+ n = 0
+ end if
+
+ allocate(new_tests(n+1))
+ if (n>0) new_tests(1:n) = tests(1:n)
+ new_tests(1+n) = new_test
+ call move_alloc(from=new_tests,to=tests) 
+
+ end subroutine add_test
+
 end module test_linalg_pseudoinverse
 
 program test_inv