gcc/testsuite/gfortran.dg/loop_interchange_2.f

   1 C { dg-do compile }
   2 C { dg-options "-std=legacy -O3 -floop-interchange" }
   3 C PR 50439 - this used to hang. Test case by Pat Haugen.
   4
   5       subroutine comnul
   6 C-----------------------------------------------------------------------
   7       implicit real*8 (a-h,o-z)
   8       parameter(zero=0.0d0,half=0.5d0,one=1.0d0)
   9       common/secom/rtc(9,18,10,5),rts(9,18,10,5)
  10       save
  11 C-----------------------------------------------------------------------
  12       do 110 i1=1,9
  13         do 110 i2=1,18
  14           do 110 i3=1,10
  15             do 110 i4=1,5
  16               rtc(i1,i2,i3,i4)=zero
  17               rts(i1,i2,i3,i4)=zero
  18   110 continue
  19       return
  20       end