[Bug other/16009] New: in move_for_stack_reg, at reg-stack.c:1120

[gcc-bugzilla at gcc dot gnu dot org]

    function sj0(x)
      implicit none
      real sj0
      real, intent(in) :: x
      if (x < 0.e0) then
        stop 'sj0: invalid argument'
      else if (x**2 < epsilon(x)) then
        sj0 = 1.e0
      else
        sj0 = sin(x) / x
      end if
    end function sj0

Environment:
System: FreeBSD troutmask.apl.washington.edu 5.2-CURRENT FreeBSD 5.2-CURRENT #0: Thu Apr 22 14:44:25 PDT 2004 kargl@troutmask.apl.washington.edu:/usr/obj/usr/src/sys/TROUTMASK i386


	
host: i386-unknown-freebsd5.2
build: i386-unknown-freebsd5.2
target: i386-unknown-freebsd5.2
configured with: ../gcc/configure --enable-languages=c,f95 --prefix=/usr/home/sgk --disable-libmudflap : (reconfigured) ../gcc/configure --prefix=/usr/home/sgk --disable-libmudflap --with-gcc-version-trigger=/usr/home/sgk/gcc/gcc/version.c --enable-languages=c,f95 --no-create --no-recursion

How-To-Repeat:
troutmask:sgk[217] gfc -c -O0 z.f90
troutmask:sgk[218] gfc -c -O1 z.f90
troutmask:sgk[219] gfc -c -O2 z.f90
z.f90: In function `sj0':
z.f90:10: internal compiler error: in move_for_stack_reg, at reg-stack.c:1120
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
------- Additional Comments From kargl at troutmask dot apl dot washington dot edu  2004-06-15 19:02 -------
Fix:
No clue.

-- 
           Summary: in move_for_stack_reg, at reg-stack.c:1120
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: other
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: kargl at troutmask dot apl dot washington dot edu
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i386-unknown-freebsd5.2
  GCC host triplet: i386-unknown-freebsd5.2
GCC target triplet: i386-unknown-freebsd5.2


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