1! PR 32220, ICE when the loop is not unrolled enough to eliminate all 2! register copies 3! { dg-do compile } 4! { dg-options "-O3" } 5 6 subroutine derv (b,cosxy,thick) 7c 8 common /shell4/xji(3,3) 9c 10 dimension cosxy(6,*), 11 1 thick(*),b(*) 12c 13 14 do 125 i=1,3 15 b(k2+i)=xji(i,1) + xji(i,2) + xji(i,3) 16 125 b(k3+i)=cosxy(i+3,kk) + cosxy(i,kk) 17c 18c 19 return 20 end 21