https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77666
Bug ID: 77666 Summary: ICE in gfc_omp_clause_default_ctor, at fortran/trans-openmp.c:471 Product: gcc Version: 7.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gerhard.steinmetz.fort...@t-online.de Target Milestone: --- Affects versions down to at least 4.8 : $ cat z1.f90 subroutine s(x) integer, allocatable :: x(:) integer :: q q = 0 !$omp parallel private(x) reduction(+:q) q = q + sum(x) !$omp end parallel print *, q end $ cat z2.f90 subroutine s(x) integer, allocatable :: x(:) logical :: q q = .false. !$omp parallel private(x) reduction(.or.:q) q = q .or. any (x > 0) !$omp end parallel print *, q end $ _g2d_nofo_v7test -fopenmp -c z1.f90 z1.f90:5:0: !$omp parallel private(x) reduction(+:q) internal compiler error: in gfc_omp_clause_default_ctor, at fortran/trans-openmp.c:471 0x78f7b6 gfc_omp_clause_default_ctor(tree_node*, tree_node*, tree_node*) ../../gcc/fortran/trans-openmp.c:471 0xb25a4b lower_rec_input_clauses ../../gcc/omp-low.c:4953 0xb2a17d lower_omp_taskreg ../../gcc/omp-low.c:15661 0xb1c0e6 lower_omp_1 ../../gcc/omp-low.c:17036 0xb1c0e6 lower_omp ../../gcc/omp-low.c:17180 0xb1b44c lower_omp_1 ../../gcc/omp-low.c:17019 0xb1b44c lower_omp ../../gcc/omp-low.c:17180 0xb1bdec lower_omp_1 ../../gcc/omp-low.c:17028 0xb1bdec lower_omp ../../gcc/omp-low.c:17180 0xb22fcf execute_lower_omp ../../gcc/omp-low.c:17915 0xb22fcf execute ../../gcc/omp-low.c:17952