[Bug fortran/23177] New: internal compiler error with -O option

[dir at lanl dot gov]

When I try to use the -O option, I get a internal compiler error -


[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% 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

-- 
           Summary: internal compiler error with -O option
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.9.0


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