[Bug tree-optimization/23177] [4.1 Regression] internal compiler error with -O option

["dir at lanl dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From dir at lanl dot gov  2005-08-02 13:25 -------
It is still crashing on me this morning on the Macintosh -

[dranta:~/tests/gfortran-D] dir% gfortran -O -c s5main.f
s5main.f: In function 'mtlsc':
s5main.f:14: internal compiler error: tree check: expected ssa_name, have
var_decl in verify_ssa, at tree-ssa.c:746
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin7.9.0
Configured with: ./configure --prefix=/Users/dir/gfortran --enable-languages=c,f95
Thread model: posix
gcc version 4.1.0 20050802 (experimental)
[dranta:~/tests/gfortran-D] dir% 
[dranta:~/tests/gfortran-D] dir% cat s5main.f
      subroutine s5main(prop,sig,epx,ln)
c
      save
      common/bk56/c(6,6),ipt,nel,nelsub
      common/bk65/td1,td2,td3,td4,td5,td6
c
      dimension prop(*),sig(ln,*),epx(ln,*)
c
      data       third/.3333333333333/
c
      return
c
      end
      subroutine mtlsc(bulkld,p,a1,a2,gg)
c
      save
c
      common/bk56/c(6,6),ipt,nel,nelsub
      common/bk65/dsig(6)
      dimension d(6,6)
      data      tt/.6666666666667/,ot/.33333333333/
c
      xjb=dsig(1)**2+dsig(2)**2+dsig(3)**2+2.*(dsig(4)**2
     1   +dsig(5)*dsig(5)+dsig(6)*dsig(6))
      if(abs(xjb).lt.1.e-20) xjb=1.
      do 10 i=1,6
      do 10 j=1,6
      d(i,j)=-dsig(i)*dsig(j)/xjb
 10   continue
c
      return
      end
[dranta:~/tests/gfortran-D] dir% 


-- 


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