[flang-commits] [flang] [flang][OpenMP] Support `parallel loop` construct. (PR #127588)

[Sergio Afonso via flang-commits]

================
@@ -263,3 +263,37 @@ subroutine teams_loop_cannot_be_parallel_for_3
     tid = omp_get_thread_num()
   END DO
 end subroutine
+
+! CHECK-LABEL: func.func @_QPteams_loop_cannot_be_parallel_for_4
+subroutine teams_loop_cannot_be_parallel_for_4
+  implicit none
+  integer :: iter, iter2, tid, val(20)
+
+  ! CHECK: omp.teams {
+
+  ! Verify the outer `loop` directive was mapped to only `distribute`.
+  ! CHECK-NOT: omp.parallel {{.*}}
+  ! CHECK:     omp.distribute {{.*}} {
+  ! CHECK-NOT:   omp.wsloop
+  ! CHECK:       omp.loop_nest {{.*}} {
----------------
skatrak wrote:

```suggestion
  ! CHECK-NEXT:  omp.loop_nest {{.*}} {
```

https://github.com/llvm/llvm-project/pull/127588