Skip to content

GCC 15.1 fixes #1008

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 16 commits into from
Jul 1, 2025
Merged

GCC 15.1 fixes #1008

Changes from 1 commit
Commits
Show all changes
16 commits
Select commit Hold shift + click to select a range
01464c7
test_determinant: gcc-15 fix
perazz Jun 28, 2025
9d657a5
linalg-inverse: gcc-15 test fix
perazz Jun 28, 2025
fc9cb6e
linalg-lstsq: gcc-15 test fix
perazz Jun 28, 2025
1ab94a7
linalg-mnorm: gcc-15 test fix
perazz Jun 28, 2025
1f09e9e
linalg-norm: gcc-15 test fix
perazz Jun 28, 2025
f83a793
linalg-pinv: gcc-15 test fix
perazz Jun 28, 2025
47aed22
linalg-qr: gcc-15 test fix
perazz Jun 28, 2025
7a9b191
linalg-schur: gcc-15 test fix
perazz Jun 28, 2025
3a53c6b
linalg-solve: gcc-15 test fix
perazz Jun 28, 2025
fd565cc
linalg-svd: gcc-15 test fix
perazz Jun 28, 2025
aa5beee
silence gcc-15 warnings
perazz Jun 28, 2025
3bb74d6
ifort fix
perazz Jun 28, 2025
a12c961
eigenvalues, cholesky: gcc-15 fix
perazz Jun 28, 2025
0228a3e
insert_at: gcc-15 fix
perazz Jun 28, 2025
8c5cb8d
append_prepend: gcc-15 array constructor fix
perazz Jun 28, 2025
6c56750
Update test_append_prepend.f90
perazz Jun 28, 2025
File filter

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
append_prepend: gcc-15 array constructor fix
  • Loading branch information
@perazz
perazz committed Jun 28, 2025
commit 8c5cb8d3b4e0d02707509e7296a10b1039d973f3
50 changes: 32 additions & 18 deletions test/stringlist/test_append_prepend.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,11 @@ subroutine test_append_prepend_string
integer, parameter :: first = -100
integer, parameter :: last = 100
character(len=:), allocatable :: string
type(string_type) :: all_strings(first:last)

do concurrent (i=first:last)
all_strings(i) = string_type( to_string(i) )
end do

do i = first, last
string = to_string(i)
Expand All @@ -26,10 +31,10 @@ subroutine test_append_prepend_string
end do

call compare_list( work_list, first, last + 1, 1 )
call check( work_list == [ ( string_type( to_string(i) ), i = first, last ) ], &
call check( work_list == all_strings, &
& "test_append_prepend_string: work_list ==&
& [ ( string_type( to_string(i) ), i = first, last ) ]" )
call check( [ ( string_type( to_string(i) ), i = first, last ) ] == work_list, &
call check( all_strings == work_list, &
& "test_append_prepend_string: [ ( string_type( to_string(i) ),&
& i = first, last ) ] == work_list" )

Expand All @@ -47,9 +52,9 @@ subroutine test_append_prepend_string
end do

call compare_list( reference_list, first, last + 1, 2 )
call check( reference_list == [ ( string_type( to_string(i) ), i = first, last ) ], "test_append_prepend_string:&
call check( reference_list == all_strings, "test_append_prepend_string:&
& reference_list == [ ( string_type( to_string(i) ), i = first, last ) ]" )
call check( [ ( string_type( to_string(i) ), i = first, last ) ] == reference_list, &
call check( all_strings == reference_list, &
& "test_append_prepend_string: [ ( string_type( to_string(i) ), i = first, last ) ] == reference_list" )

call check( work_list == reference_list, "test_append_prepend_string:&
Expand All @@ -66,10 +71,15 @@ subroutine test_append_prepend_array
integer, parameter :: first = -100
integer, parameter :: last = 100
integer, parameter :: stride = 10
type(string_type) :: all_strings(first:last)

do concurrent (j=first:last)
all_strings(j) = string_type( to_string(j) )
end do

do i = first, last - 1, stride
work_list = work_list // [ ( string_type( to_string(j) ), j = i, i + stride - 1) ]
call check( work_list == [ ( string_type( to_string(j) ), j = first, i + stride - 1) ], &
work_list = work_list // all_strings(i:i+stride-1)
call check( work_list == all_strings(first:i+stride-1), &
& "test_append_prepend_array: work_list ==&
& [ ( string_type( to_string(j) ), j = first, i + stride - 1) ]" )

Expand All @@ -78,10 +88,10 @@ subroutine test_append_prepend_array
work_list = work_list // to_string(last)

call compare_list( work_list, first, last + 1, 3 )
call check( work_list == [ ( string_type( to_string(i) ), i = first, last) ], &
call check( work_list == all_strings, &
& "test_append_prepend_array: work_list ==&
& [ ( string_type( to_string(i) ), i = first, last) ]" )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == work_list, &
call check( all_strings == work_list, &
& "test_append_prepend_array: [ ( string_type( to_string(i) ), i = first, last) ]&
& == work_list" )

Expand All @@ -91,8 +101,7 @@ subroutine test_append_prepend_array
call check( reference_list /= work_list, "test_append_prepend_array:&
& reference_list /= work_list" )

reference_list = [ ( string_type( to_string(j) ), j = i - stride + 1, i ) ] &
& // reference_list
reference_list = all_strings(i-stride+1:i) // reference_list
call check( reference_list == &
& [ ( string_type( to_string(j) ), j = i - stride + 1, last ) ], &
& "test_append_prepend_array: reference_list ==&
Expand All @@ -103,10 +112,10 @@ subroutine test_append_prepend_array
reference_list = to_string(first) // reference_list

call compare_list( reference_list, first, last + 1, 4 )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == reference_list, &
call check( all_strings == reference_list, &
& "test_append_prepend_array:&
& [ ( string_type( to_string(i) ), i = first, last) ] == reference_list" )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == reference_list, &
call check( all_strings == reference_list, &
& "test_append_prepend_array: [ ( string_type( to_string(i) ), i = first, last) ]&
& == reference_list" )

Expand All @@ -124,6 +133,11 @@ subroutine test_append_prepend_list
integer, parameter :: first = -100
integer, parameter :: last = 100
integer, parameter :: stride = 10
type(string_type) :: all_strings(first:last)

do concurrent (j=first:last)
all_strings(j) = string_type( to_string(j) )
end do

do i = first, last - 1, stride
call temp_list%clear()
Expand All @@ -132,7 +146,7 @@ subroutine test_append_prepend_list
end do
work_list = work_list // temp_list

call check( work_list == [ ( string_type( to_string(j) ), j = first, i + stride - 1 ) ], &
call check( work_list == all_strings(first:i+stride-1), &
& "test_append_prepend_list: work_list ==&
& [ ( to_string(j), j = first, i + stride - 1) ]" )

Expand All @@ -141,9 +155,9 @@ subroutine test_append_prepend_list
work_list = work_list // to_string(last)

call compare_list( work_list, first, last + 1, 5 )
call check( work_list == [ ( string_type( to_string(i) ), i = first, last) ], "test_append_prepend_list:&
call check( work_list == all_strings, "test_append_prepend_list:&
& work_list == [ ( string_type( to_string(i) ), i = first, last) ]" )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == work_list, &
call check( all_strings == work_list, &
& "test_append_prepend_list: [ ( string_type( to_string(i) ), i = first, last) ]&
& == work_list" )

Expand All @@ -160,7 +174,7 @@ subroutine test_append_prepend_list
reference_list = temp_list // reference_list

call check( reference_list == &
& [ ( string_type( to_string(j) ), j = i - stride + 1, last ) ], &
& all_strings(i-stride+1:last), &
& "test_append_prepend_list: reference_list ==&
& [ ( string_type( to_string(j) ), j = i - stride + 1, last ) ]" )

Expand All @@ -169,10 +183,10 @@ subroutine test_append_prepend_list
reference_list = to_string(first) // reference_list

call compare_list( reference_list, first, last + 1, 6 )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == reference_list, &
call check( all_strings == reference_list, &
& "test_append_prepend_list:&
& [ ( string_type( to_string(i) ), i = first, last) ] == reference_list" )
call check( [ ( string_type( to_string(i) ), i = first, last) ] == reference_list, &
call check( all_strings == reference_list, &
& "test_append_prepend_list: [ ( string_type( to_string(i) ), i = first, last) ]&
& == reference_list" )

Expand Down