[Flang][OpenMP] flang/lib/Support/OpenMP-utils.cpp:16: mlir::Block *Fortran::common::openmp::genEntryBlock(mlir::OpBuilder &, const Fortran::common::openmp::EntryBlockArgs &, mlir::Region &): Assertion `args.isValid() && "invalid args"' failed.

[k-arrows]

Crash itself is reproducible on Godbolt:
https://godbolt.org/z/Pb5eMzbca

integer :: i, ior
!$omp parallel reduction (ior:i)
!$omp end parallel
end

With assertion-enabled flang, compiling the above reproducer results in the following assertion failure:

flang_test/llvm-project/flang/lib/Support/OpenMP-utils.cpp:16: mlir::Block *Fortran::common::openmp::genEntryBlock(mlir::OpBuilder &, const Fortran::common::openmp::EntryBlockArgs &, mlir::Region &): Assertion `args.isValid() && "invalid args"' failed.

[k-arrows]

The following is the original reproducer:
https://github.com/gcc-mirror/gcc/blob/master/gcc/testsuite/gfortran.dg/gomp/reduction3.f90

[llvmbot]

@llvm/issue-subscribers-flang-ir

Author: None (k-arrows)

Crash itself is reproducible on Godbolt: https://godbolt.org/z/Pb5eMzbca ```f90 integer :: i, ior !$omp parallel reduction (ior:i) !$omp end parallel end ```

With assertion-enabled flang, compiling the above reproducer results in the following assertion failure:

flang_test/llvm-project/flang/lib/Support/OpenMP-utils.cpp:16: mlir::Block *Fortran::common::openmp::genEntryBlock(mlir::OpBuilder &, const Fortran::common::openmp::EntryBlockArgs &, mlir::Region &): Assertion `args.isValid() && "invalid args"' failed.

[k-arrows]

This has been fixed. I will close this issue.