summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/predcom-2.f
blob: 7e43cb07ae5d9985b8733813cdd10acbb955ee2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! PR 32220, ICE when the loop is not unrolled enough to eliminate all 
!   register copies
! { dg-do compile }
! { dg-options "-O3" }

      subroutine derv (b,cosxy,thick)
c
      common /shell4/xji(3,3)
c
      dimension cosxy(6,*),
     1          thick(*),b(*)
c

      do 125 i=1,3
      b(k2+i)=xji(i,1) + xji(i,2) + xji(i,3)
  125 b(k3+i)=cosxy(i+3,kk) + cosxy(i,kk)
c
c
      return
      end