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