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