https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93553
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Compiles these slightly modified variants :
$ cat z2.f90
program p
integer :: x(8) = 0
call sub(x)
end
subroutine sub(x)
integer :: x(8)
integer :: c(8) = 1
integer :: i
!$omp parallel do reduction(+:x)
do i = 1, 8
x(i) = c(i)
end do
print *, x
end
$ cat z3.f90
program p
integer :: x(8) = 0
integer :: c(8) = 1
call s
contains
subroutine s
integer :: i
!$omp parallel do reduction(+:x)
do i = 1, 8
x(i) = c(i)
end do
print *, x
end
end
