This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

egcs-19991201/g77 ICE


A condensed version of one of several new ICE's produced at g77 -O in this
week's snapshot.  An equal number of additional new ones come up at -Os.  All
appear to involve multiple DO loops.

g77 version 2.96 19991201 (experimental) (from FSF-g77 version 0.5.25 19991201
(experimental))
Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.96/specs
gcc version 2.96 19991201 (experimental)
 /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.96/f771 values.f -quiet -dumpbase
values.f -O -version -fversion -o values.s
GNU F77 version 2.96 19991201 (experimental) (i686-pc-linux-gnu) compiled by
GNU C version 2.96 19991201 (experimental).
GNU Fortran Front End version 0.5.25 19991201 (experimental)
g77: Internal compiler error: program f771 got fatal signal 11

C
C***********************************************
      subroutine values(i)
C***********************************************

      common/space3/cache(8192),p(4,512),grd(1001),ix(1001)
C
C     ******************************************************************
C
      ip1= i
C
      if(ip1 == 13)then
	  ds= 1.000d0
	  dw= 0.500d0
	  do k= 1,512
	      do j= 1,4
		  p(j,k)= ds+512*dw*(j-1)
		enddo
	      ds= ds+dw
	    enddo
	endif
      if(ip1 == 14)then
C
	  mmin= 1
	  mmax= 1001
	  call iqranf(ix,mmin,mmax,1001)
C
	  dw= -100.000d0
	  do j= 1,1001
	      grd(j)= ix(j)
	    enddo
	endif
      do k= 1,8192
	cache(k)= 0.10
	enddo
      return
      end

Tim
tprince@computer.org

____________________________________________________________________
Get your own FREE, personal Netscape WebMail account today at http://webmail.netscape.com.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]