[Bug middle-end/95550] New: [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075

[Bug middle-end/95550] New: [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075

[burnus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95550

            Bug ID: 95550
           Summary: [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Keywords: openacc
          Severity: normal
          Priority: P3
         Component: middle-end
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org
  Target Milestone: ---

The following program gives an ICE with -fopenacc:

   12 |     !$acc loop private(A)
      | 
internal compiler error: in expand_oacc_for, at omp-expand.c:6075
0x6b9638 expand_oacc_for
        ../../repos/gcc-cs-og10-pre/gcc/omp-expand.c:6075
0xd6eadf expand_omp_for
        ../../repos/gcc-cs-og10-pre/gcc/omp-expand.c:6583
0xd6f5ea expand_omp
        ../../repos/gcc-cs-og10-pre/gcc/omp-expand.c:8912



program main
  implicit none (type, external)
  integer :: j, i
  integer, allocatable :: A(:)

  A = [(3*j, j=1, 10)]

  !$acc parallel create(A)
    A(:) = [(-2*i, i = 1, size(A))]
    !$acc loop private(A)
    do i = 1, 10
      A(i) = 9*i
    end do
    !if (any (A /= [(-2*i, i = 1, 10)])) error stop 2
  !$acc end parallel
end

[Bug middle-end/95550] [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075

[tetra2005 at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95550

Yuri Gribov <tetra2005 at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tetra2005 at gmail dot com

--- Comment #1 from Yuri Gribov <tetra2005 at gmail dot com> ---
Also fails on simpler code (on master and devel/omp/gcc-11 branches):

  $ gfortran -ffree-form -ffree-line-length-none -O2 -fopenacc -c kernel.f90
  kernel.f90:10:34:

   10 | !$ACC PARALLEL LOOP PRIVATE(GWORK)
      |                                  ^
  internal compiler error: in expand_oacc_for, at omp-expand.c:7529
  0x62c8b7 expand_oacc_for
          /home/y.gribov/src/gcc-omp/gcc/omp-expand.c:7529
  0x1605139 expand_omp_for
          /home/y.gribov/src/gcc-omp/gcc/omp-expand.c:8081
  0x1605afa expand_omp
          /home/y.gribov/src/gcc-omp/gcc/omp-expand.c:10302
  0x16053c5 expand_omp
          /home/y.gribov/src/gcc-omp/gcc/omp-expand.c:10288
  0x16079dd execute_expand_omp
          /home/y.gribov/src/gcc-omp/gcc/omp-expand.c:10536

[Bug middle-end/95550] [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075

[tetra2005 at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95550

--- Comment #2 from Yuri Gribov <tetra2005 at gmail dot com> ---
The promised repro:
  SUBROUTINE FOO()                                                              
    INTEGER :: I
    COMPLEX(8), ALLOCATABLE :: GWORK(:)
    ALLOCATE(GWORK(512))
  !$ACC PARALLEL LOOP PRIVATE(GWORK)
    DO I = 1,512
      GWORK(I) = 0
    ENDDO
  END SUBROUTINE

[Bug middle-end/95550] [OpenACC] ICE in expand_oacc_for, at omp-expand.c:6075

[tschwinge at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95550

Thomas Schwinge <tschwinge at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW
                 CC|                            |tschwinge at gcc dot gnu.org
           Keywords|                            |ice-on-valid-code
   Last reconfirmed|                            |2022-10-12
           See Also|                            |https://gcc.gnu.org/bugzill
                   |                            |a/show_bug.cgi?id=93554

--- Comment #3 from Thomas Schwinge <tschwinge at gcc dot gnu.org> ---
Thanks for the report!

Probably a duplicate of PR93554: exactly same ICE, backtrace.