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
