gcc/testsuite/gfortran.dg/graphite/pr42334.f90

   1 ! { dg-options "-O2 -floop-nest-optimize -ftree-loop-distribution" }
   2
   3 subroutine blockdis(bl1eg,bl2eg)
   4   implicit real*8 (a-h,o-z)
   5   parameter(nblo=300)
   6   common/str /mblo
   7   common/str2 /mel(nblo)
   8   dimension h(nblo,2,6),g(nblo,2,6)
   9   dimension bl1eg(nblo,2,6),bl2eg(nblo,2,6)
  10   do k=1,mblo
  11      jm=mel(k)
  12      do l=1,2
  13         do m=1,6
  14            bl1eg(k,l,m)=h(jm,l,m)
  15            bl2eg(k,l,m)=g(jm,l,m)
  16         enddo
  17      enddo
  18   enddo
  19   return
  20 end subroutine blockdis