gcc/testsuite/gfortran.dg/pr52701.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3" }
   3 function pr52701 (x, z, e, f, g, l)
   4   integer a, b, c, d, e, f, g, i, j, l, pr52701
   5   double precision x(e), z(e*e)
   6   do i = l, f
   7     do j = l, i
   8       d = 0
   9       do a = 1, g
  10         c = a - g
  11         do b = 1, g
  12           d = d + 1
  13           c = c + g
  14           z(d) = z(d) / (x(i) + x(j) - x(f + a) - x(f + b))
  15         end do
  16       end do
  17     end do
  18   end do
  19   pr52701 = c
  20 end