[flang-commits] [flang] [FLANG][OpenMP] Handling pure directives in DO CONCURRENT (PR #216642)

[via flang-commits]

================
@@ -0,0 +1,48 @@
+! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -fopenmp-version=60
+
----------------
kwyatt-ext wrote:

Please try out this case:
```
subroutine p(n)
  integer :: n, i
  do concurrent (i = 1:n)
    !$omp metadirective when(user={condition(.true.)}: parallel)
    block
    end block
  end do
end
```

It will NOT produce an error on compile, but I believe it should.  If you remove the "metadirective" portion of that directive, it DOES produce the error.

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