@@ -18,9 +18,9 @@ module test_linalg_mnorm
18
18
allocate(tests(0))
19
19
20
20
#:for rk,rt,ri in RC_KINDS_TYPES
21
- tests = [ tests,new_unittest("test_matrix_norms_${ri}$",test_matrix_norms_${ri}$)]
21
+ call add_test( tests,new_unittest("test_matrix_norms_${ri}$",test_matrix_norms_${ri}$))
22
22
#:for rank in range(3, MAXRANK)
23
- tests = [ tests,new_unittest("test_mnorm_${ri}$_${rank}$d",test_mnorm_${ri}$_${rank}$d)]
23
+ call add_test( tests,new_unittest("test_mnorm_${ri}$_${rank}$d",test_mnorm_${ri}$_${rank}$d))
24
24
#:endfor
25
25
#:endfor
26
26
@@ -135,6 +135,27 @@ module test_linalg_mnorm
135
135
136
136
#:endfor
137
137
138
+ ! gcc-15 bugfix utility
139
+ pure subroutine add_test(tests,new_test)
140
+ type(unittest_type), allocatable, intent(inout) :: tests(:)
141
+ type(unittest_type), intent(in) :: new_test
142
+
143
+ integer :: n
144
+ type(unittest_type), allocatable :: new_tests(:)
145
+
146
+ if (allocated(tests)) then
147
+ n = size(tests)
148
+ else
149
+ n = 0
150
+ end if
151
+
152
+ allocate(new_tests(n+1))
153
+ if (n>0) new_tests(1:n) = tests(1:n)
154
+ new_tests(1+n) = new_test
155
+ call move_alloc(from=new_tests,to=tests)
156
+
157
+ end subroutine add_test
158
+
138
159
end module test_linalg_mnorm
139
160
140
161
program test_mnorm
0 commit comments