1! { dg-additional-options "-fdump-tree-original" }
2!
3! Related:
4!   PR fortran/95109
5!   PR fortran/94690
6!
7implicit none
8integer :: i, j, k, ll
9integer :: a
10!$omp target parallel do simd collapse(1)
11  do i = 1, 5
12    do j = 1, 5
13      do k = 1, 5
14        a = a + 1
15      end do
16      do ll = 1, 5
17        a = a + 1
18      end do
19    end do
20  end do
21!$omp end target parallel do simd
22end
23
24! { dg-final { scan-tree-dump-times "omp simd linear\\(i:1\\) private\\(j\\) private\\(ll\\) private\\(k\\) collapse\\(1\\)" 1 "original" } }
25