[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