With assertion-enabled flang-new, the following program causes an assertion failure.
Reproducer:
integer :: i, j
!$omp parallel
!$omp do default(private)
do i = 1, 10
j = i
end do
!$omp end do
!$omp end parallel
end
Assertion:
flang-new: /opt/llvm-project/flang/lib/Semantics/resolve-directives.cpp:2155: void Fortran::semantics::OmpAttributeVisitor::CreateImplicitSymbols(const Symbol *, std::optional<Symbol::Flag>): Assertion `parallelDir || taskGenDir || teamsDir' failed.