Skip to content

[Flang][OpenMP] Assertion `parallelDir || taskGenDir || teamsDir' failed. #107495

@k-arrows

Description

@k-arrows

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.

Metadata

Metadata

Assignees

No one assigned

    Labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions