https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95499
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Test case need the change (in line 40) to compile - sorry.
@@ -40 +40 @@
- if (any (array /= [(-2*i, i = 1, nn)])) error stop 2
+ if (any (array /= [(-2*i, i = 1, 10)])) error stop 2
Shorter test case – but consider using the full one for the testsuite!
Remarks:
* As it, it fails as shown in comment 0
* When commenting the 'str = "…' it segfault in dominated_by_p
* When commenting that line + removes/comments-out the 'map(from:str)' clause,
it ICEs in expand_expr_real_1, at expr.c:10160
subroutine bar_str(str)
integer :: i
character(len=:), allocatable :: str
!$omp target map(from:str)
str = "abcdefghij"
!$omp do private(str)
do i = 1, 10
str(i:i) = achar(ichar('A') + i)
end do
!$omp end target
end
