Commit 47aed22

committed

linalg-qr: gcc-15 test fix

1 parent f83a793 commit 47aed22Copy full SHA for 47aed22

File tree

+21

-1

lines changed

+21

-1

lines changed

Lines changed: 21 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@ module test_linalg_qr`
`22`	`22`	`allocate(tests(0))`
`23`	`23`
`24`	`24`	`#:for rk,rt,ri in RC_KINDS_TYPES`
`25`		`- tests = [tests,new_unittest("qr_random_${ri}$",test_qr_random_${ri}$)]`
	`25`	`+ call add_test(tests,new_unittest("qr_random_${ri}$",test_qr_random_${ri}$))`
`26`	`26`	`#:endfor`
`27`	`27`
`28`	`28`	`end subroutine test_qr_factorization`
`@@ -110,6 +110,26 @@ module test_linalg_qr`
`110`	`110`
`111`	`111`	`#:endfor`
`112`	`112`
	`113`	`+ ! gcc-15 bugfix utility`
	`114`	`+ pure subroutine add_test(tests,new_test)`
	`115`	`+ type(unittest_type), allocatable, intent(inout) :: tests(:)`
	`116`	`+ type(unittest_type), intent(in) :: new_test`
	`117`	`+`
	`118`	`+ integer :: n`
	`119`	`+ type(unittest_type), allocatable :: new_tests(:)`
	`120`	`+`
	`121`	`+ if (allocated(tests)) then`
	`122`	`+ n = size(tests)`
	`123`	`+ else`
	`124`	`+ n = 0`
	`125`	`+ end if`
	`126`	`+`
	`127`	`+ allocate(new_tests(n+1))`
	`128`	`+ if (n>0) new_tests(1:n) = tests(1:n)`
	`129`	`+ new_tests(1+n) = new_test`
	`130`	`+ call move_alloc(from=new_tests,to=tests)`
	`131`	`+`
	`132`	`+ end subroutine add_test`
`113`	`133`
`114`	`134`	`end module test_linalg_qr`
`115`	`135`

Comments

(0)