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

--- Comment #6 from Tom de Vries <vries at gcc dot gnu.org> ---
Created attachment 49227
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=49227&action=edit
Dumps for failing test-case

(In reply to Tom de Vries from comment #5)
> 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
> ...

Corresponding dumps.

Reply via email to