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 ...