! { dg-options "-O2 -floop-nest-optimize -ftree-loop-distribution" }

subroutine blockdis(bl1eg,bl2eg)
  implicit real*8 (a-h,o-z)
  parameter(nblo=300)
  common/str /mblo
  common/str2 /mel(nblo)
  dimension h(nblo,2,6),g(nblo,2,6)
  dimension bl1eg(nblo,2,6),bl2eg(nblo,2,6)
  do k=1,mblo
     jm=mel(k)
     do l=1,2
        do m=1,6
           bl1eg(k,l,m)=h(jm,l,m)
           bl2eg(k,l,m)=g(jm,l,m)
        enddo
     enddo
  enddo
  return
end subroutine blockdis