[Bug fortran/33073] New: New ICE that did not occur in 7-30 Windows build

[awgreynolds at earthlink dot net]

subroutine PropagateGrid(wavl,grid,field)
  parameter (KR=8); implicit real(KR) (a-h,o-z)
  intent(in) wavl; intent(inout) grid; dimension grid(0:3,0:3)
  complex(KR),intent(inout) :: field(*)
    call PropagateField(wavl,nint(grid(0,1:)),field) !causes ICE
!    call PropagateField(wavl,int(grid(0,1:)),field) !doesn't
  return
end

C:\gfc\geloe>gfortran -v -c bug.f90
Using built-in specs.
Target: i386-pc-mingw32
Configured with: ../trunk/configure --prefix=/mingw
--enable-languages=c,fortran --with-gmp=/home/FX/local --
Thread model: win32
gcc version 4.3.0 20070813 (experimental)
 c:/program files/gfortran/bin/../libexec/gcc/i386-pc-mingw32/4.3.0/f951.exe
bug.f90 -quiet -dumpbase bug.f90
GNU F95 version 4.3.0 20070813 (experimental) (i386-pc-mingw32)
        compiled by GNU C version 4.3.0 20070813 (experimental), GMP version
4.2.1, MPFR version 2.2.1-p5.
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
bug.f90: In function 'propagategrid':
bug.f90:2: internal compiler error: in gfc_add_modify, at fortran/trans.c:159


-- 
           Summary: New ICE that did not occur in 7-30 Windows build
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: awgreynolds at earthlink dot net


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33073