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

--- Comment #7 from Tom de Vries <vries at gcc dot gnu.org> ---
Minimal example after commit 91347c3bbf7 "Fortran: OpenMP - fix simd with
(last)private (PR97061)":
...
! { dg-do run }                                                                 
program main
  implicit none
  integer :: d1
  !$omp target map(from: d1)                                                    
  !$omp teams distribute parallel do simd default(none) lastprivate(d1)         
  do d1 = 0, 31
  end do
  !$omp end target                                                              
  if (d1 /= 32) stop 3
end program
...

Reply via email to