This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
egcs-19991201/g77 ICE
- To: gcc-bugs at gcc dot gnu dot org
- Subject: egcs-19991201/g77 ICE
- From: Timothy Prince <tprinceusa at netscape dot net>
- Date: 2 Dec 99 12:04:58 PST
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.