41 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3integer :: i, j4! ERROR: DO CONCURRENT loops cannot be used with the COLLAPSE clause.5!$omp parallel do collapse(2)6do i = 1, 17 ! ERROR: DO CONCURRENT loops cannot form part of a loop nest.8 do concurrent (j = 1:2)9 print *, j10 end do11end do12 13!$omp parallel do14do i = 1, 115 ! This should not lead to an error because it is not part of a loop nest:16 do concurrent (j = 1:2)17 print *, j18 end do19end do20 21!$omp parallel do22! ERROR: DO CONCURRENT loops cannot form part of a loop nest.23do concurrent (j = 1:2)24 print *, j25end do26 27!$omp loop28! Do concurrent is explicitly allowed inside of omp loop29do concurrent (j = 1:2)30 print *, j31end do32 33! ERROR: DO CONCURRENT loops cannot be used with the COLLAPSE clause.34!$omp loop collapse(2)35do i = 1, 136 do concurrent (j = 1:2)37 print *, j38 end do39end do40end41