eigenvalues, cholesky: gcc-15 fix

Author: perazz

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_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