re PR middle-end/38459 ([graphite] SEGFAULT in cloog_clast_create)

2008-12-11  Sebastian Pop  <sebastian.pop@amd.com>

	PR middle-end/38459
	* gfortran.dg/graphite/pr37857.f90: New.

From-SVN: r142690

gcc/testsuite/ChangeLog

+2008-12-11  Sebastian Pop  <sebastian.pop@amd.com>
+
+	PR middle-end/38459
+	* gfortran.dg/graphite/pr37857.f90: New.
+
 2008-12-11  Harsha Jagasia  <harsha.jagasia@amd.com>
 
 	PR tree-optimization/38446

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

+! { dg-options "-O2 -floop-block" }
+
+program superficie_proteina
+  integer, parameter :: LONGreal = selected_real_kind(12,90)
+  integer :: number_of_polypeptides, maximum_polypeptide_length
+  real (kind = LONGreal), dimension (:,:), allocatable :: individual_conformations
+  allocate (individual_conformations(-number_of_bins:0,number_of_polypeptides))
+  individual_conformations = 0.0_LONGreal
+end program superficie_proteina