obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 23 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42180.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
new file mode 100644
index 000000000..bb5bc0c58
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/graphite/pr42180.f90
@@ -0,0 +1,23 @@
+! { dg-options "-ffast-math -O2 -fgraphite-identity" }
+
+module mcc_m
+  integer, parameter, private :: longreal = selected_real_kind(15,90)
+contains
+  subroutine mutual_ind_cir_cir_coils (m, l12)
+    real (kind = longreal), intent(out) :: l12
+    real (kind = longreal), dimension(1:9), save :: zw
+    gauss:do i = 1, 9
+       theta_l12 = 0.0_longreal
+       theta1:   do n1 = 1, 2*m
+          theta_1 = pi*real(n1,longreal)/real(m,longreal)
+          theta2:       do n2 = 1, 2*m
+             numerator = -sin(theta_1)*tvx + cos(theta_1)*tvy
+             theta_l12 = theta_l12 + numerator/denominator
+          end do theta2
+       end do theta1
+       l12 = l12 + zw(i)*theta_l12
+    end do gauss
+    l12 = coefficient * l12
+  end subroutine mutual_ind_cir_cir_coils
+end module mcc_m
+! { dg-final { cleanup-modules "mcc_m" } }