| Issue |
107495
|
| Summary |
[Flang][OpenMP] Assertion `parallelDir || taskGenDir || teamsDir' failed.
|
| Labels |
flang
|
| Assignees |
|
| Reporter |
k-arrows
|
With assertion-enabled flang-new, the following program causes an assertion failure.
Reproducer:
```f90
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:
```txt
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.
```
![]()
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
