Add testcase for PR45758.

2010-09-23  Sebastian Pop  <sebastian.pop@amd.com>

	PR middle-end/45758
	* gfortran.dg/graphite/pr45758.f90: New.

From-SVN: r164811

gcc/ChangeLog.graphite

 2010-09-23  Sebastian Pop  <sebastian.pop@amd.com>
 
+	PR middle-end/45758
+	* gfortran.dg/graphite/pr45758.f90: New.
+
+2010-09-23  Sebastian Pop  <sebastian.pop@amd.com>
+
 	* graphite-scop-detection.c (is_scop_p): Free bblist.
 
 2010-09-23  Sebastian Pop  <sebastian.pop@amd.com>

gcc/testsuite/ChangeLog

 2010-09-30  Sebastian Pop  <sebastian.pop@amd.com>
 
+	PR middle-end/45758
+	* gfortran.dg/graphite/pr45758.f90: New.
+
+2010-09-30  Sebastian Pop  <sebastian.pop@amd.com>
+
 	PR middle-end/45230
 	* gcc.dg/graphite/id-pr45230.c: New.
 

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

+! { dg-options "-O3 -floop-block" }
+
+MODULE util
+  INTEGER, PARAMETER :: int_4=4
+  INTERFACE sort
+     MODULE PROCEDURE sort_int_4v
+  END INTERFACE
+CONTAINS
+  SUBROUTINE sort_int_4v ( arr, n, index )
+    INTEGER(KIND=int_4), INTENT(INOUT)       :: arr(1:n)
+    INTEGER, INTENT(OUT)                     :: INDEX(1:n)
+    DO i = 1, n
+       INDEX(i) = i
+    END DO
+1   IF (ir-l<m) THEN
+       DO j = l + 1, ir
+          DO i = j - 1, 1, -1
+             IF (arr(i)<=a) GO TO 2
+             arr(i+1) = arr(i)
+             INDEX(i+1) = INDEX(i)
+          END DO
+2         arr(i+1) = a
+       END DO
+    END IF
+  END SUBROUTINE sort_int_4v
+  SUBROUTINE create_destination_list(list)
+    INTEGER, DIMENSION(:, :, :), POINTER     :: list
+    INTEGER                                  ::  icpu, ncpu, stat, ultimate_max
+    INTEGER, ALLOCATABLE, DIMENSION(:)       :: index, sublist
+    ultimate_max=7
+    ALLOCATE(INDEX(ultimate_max),STAT=stat)
+    CALL t(stat==0)
+    ALLOCATE(sublist(ultimate_max),STAT=stat)
+    DO icpu=0,ncpu-1
+       CALL sort(sublist,ultimate_max,index)
+       list(1,:,icpu)=sublist
+       list(2,:,icpu)=0
+    ENDDO
+  END SUBROUTINE create_destination_list
+END MODULE
+