[Bug fortran/77666] New: ICE in gfc_omp_clause_default_ctor, at fortran/trans-openmp.c:471

[gerhard.steinmetz.fortran@t-online.de]

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.fortran@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