[Bug target/23095] New: ICE in regstack compensate_edge

["steven at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Hi, 
 
GNU F95 version 4.1.0 20050727 (experimental) (x86_64-unknown-linux-gnu) gives 
an ICE when compiling the following ugly but valid code (reduced from galgel): 
 
============================================ 
      function foo(n) 
      real*8 foo 
      integer ix, n, next 
      real*8 xmax, absx 
      foo  = 0.0d0 
      assign 20 to next 
      do ix = 1,n 
         go to next,(10, 30) 
   10    assign 40 to next 
         go to 40 
   20    if (absx .gt. 8.232d-11) go to 40 
   30    if (absx .le. xmax) go to 40 
         xmax = absx 
   40    go to next,(10, 30) 
      end do 
      return 
      end 
============================================ 
 
$ ./f951 -w -m32 -ffixed-form -O2 -ffloat-store lapak.f90 
 foo 
Analyzing compilation unitPerforming intraprocedural optimizations 
Assembling functions: 
 foo 
lapak.f90: In function 'foo': 
lapak.f90:16: internal compiler error: in compensate_edge, at reg-stack.c:2686

-- 
           Summary: ICE in regstack compensate_edge
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P2
         Component: target
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: steven at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org,sayle at gcc dot gnu dot
                    org
GCC target triplet: i686-pc-linux-gnu


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