https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77665
Bug ID: 77665
Summary: ICE in expand_GOMP_SIMD_VF, at internal-fn.c:172
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 5, 6, 7 at optimization level -Os, -O1 or higher.
$ cat z1.f90
program p
type t
integer :: a = 0
end type
type(t) :: x
integer :: i
!$omp declare reduction (+:t: omp_out%a = omp_out%a + omp_in%a)
!$omp simd reduction(+:x)
do i = 1, 8
! if ( abs(i) > 5 ) stop ! or "call abort" etc.
if ( abs(i) < 5 ) stop
! if ( abs(i) <= 5 ) stop
! if ( abs(i) /= 5 ) stop
x%a = x%a + 1
end do
print *, x%a
end
$ gfortran-7-20160918 -O2 -fopenmp z1.f90
z1.f90:17:0:
end
internal compiler error: in expand_GOMP_SIMD_VF, at internal-fn.c:172
0xa152a7 expand_GOMP_SIMD_VF
../../gcc/internal-fn.c:172
0x80348f expand_call_stmt
../../gcc/cfgexpand.c:2578
0x80348f expand_gimple_stmt_1
../../gcc/cfgexpand.c:3579
0x80348f expand_gimple_stmt
../../gcc/cfgexpand.c:3745
0x8050ce expand_gimple_basic_block
../../gcc/cfgexpand.c:5752
0x80b276 execute
../../gcc/cfgexpand.c:6363
