This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/15832] ICE in move_for_stack_reg, at reg-stack.c:1120
- From: "bdavis at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 5 Jun 2004 12:25:16 -0000
- Subject: [Bug fortran/15832] ICE in move_for_stack_reg, at reg-stack.c:1120
- References: <20040605111626.15832.schnetter@aei.mpg.de>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Additional Comments From bdavis at gcc dot gnu dot org 2004-06-05 12:25 -------
Does not happen with -O0.
The file called out in the ICE is not in the gfortran front end.
Here is a reduced test case that duplicates the error:
function WaveToyFO_Deriv (fm2, fm1, f0, fp1, fp2, dx, dir)
implicit none
REAL*8 WaveToyFO_Deriv
REAL*8 fm2, fm1, f0, fp1, fp2
REAL*8 dx
integer dir
if (dir .eq. 0) then
WaveToyFO_Deriv = (fp1 - fm1) / (2 * dx)
else if (dir .eq. -1) then
WaveToyFO_Deriv = (fp1 - fm1) / (2 * dx)
else
call CCTK_Warn()
end if
end
--bud
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15832