! { dg-additional-options "-fdump-tree-original" } | |
! | |
! Related: | |
! PR fortran/95109 | |
! PR fortran/94690 | |
! | |
implicit none | |
integer :: i, j, k, ll | |
integer :: a | |
!$omp target parallel do simd collapse(1) | |
do i = 1, 5 | |
do j = 1, 5 | |
do k = 1, 5 | |
a = a + 1 | |
end do | |
do ll = 1, 5 | |
a = a + 1 | |
end do | |
end do | |
end do | |
!$omp end target parallel do simd | |
end | |
! { dg-final { scan-tree-dump-times "omp simd linear\\(i:1\\) private\\(j\\) private\\(ll\\) private\\(k\\) collapse\\(1\\)" 1 "original" } } |