1! { dg-options "-O2 -floop-nest-optimize" } 2 3 subroutine linel(icmdl,stre,anisox) 4 real*8 stre(6),tkl(3,3),ekl(3,3),anisox(3,3,3,3) 5 do m1=1,3 6 do m2=1,m1 7 do m3=1,3 8 do m4=1,3 9 tkl(m1,m2)=tkl(m1,m2)+ 10 & anisox(m1,m2,m3,m4)*ekl(m3,m4) 11 enddo 12 enddo 13 enddo 14 enddo 15 stre(1)=tkl(1,1) 16 end 17