[Bug fortran/71687] ICE in omp_add_variable, at gimplify.c:5821

[gerhard.steinmetz.fort...@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71687

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
As known, case above works with "workshare" :


$ cat z2.f90
subroutine s (n, x)
   integer :: n
   real :: x(n)
!$omp parallel workshare
   x(1:n) = x(n:1:-1)
!$omp end parallel workshare
end