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

Tom de Vries <vries at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |vries at gcc dot gnu.org

--- Comment #5 from Tom de Vries <vries at gcc dot gnu.org> ---
Minimal example:
...
! { dg-do run }                                                                 
program main
  implicit none
  integer :: d1, d2
  !$omp target map(from: d1)                                                    
  !$omp teams distribute parallel do simd default(none) lastprivate(d1) &       
  !$omp&      collapse(2)                                                       
  do d1 = 0, 31
    do d2 = 0, 31
    end do
  end do
  !$omp end target                                                              
  if (d1 /= 32) stop 3
end program
...

Reply via email to