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