[Bug fortran/15832] ICE in move_for_stack_reg, at reg-stack.c:1120

[bdavis 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