gcc/testsuite/gfortran.dg/predcom-2.f

   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)
   7 c
   8       common /shell4/xji(3,3)
   9 c
  10       dimension cosxy(6,*),
  11      1          thick(*),b(*)
  12 c
  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)
  17 c
  18 c
  19       return
  20       end