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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142690 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cdf137f..75297a2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr37857.f90 b/gcc/testsuite/gfortran.dg/graphite/pr37857.f90
new file mode 100644 (file)
index 0000000..de2d3a1
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/graphite/pr37857.f90
@@ -0,0 +1,9 @@
+! { 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