linalg-norm: gcc-15 test fix

Author: perazz

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
+    pure 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