procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add testcase for PR45758.

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

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

From-SVN: r164811
This commit is contained in:
Sebastian Pop 2010-09-30 21:21:46 +00:00 • committed by Sebastian Pop
parent a72b79fb67
commit 99e557492e
3 changed files with 51 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ChangeLog.graphite
View file

@ -1,3 +1,8 @@
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.

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
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

41
gcc/testsuite/gfortran.dg/graphite/pr45758.f90 Normal file
View file

@ -0,0 +1,41 @@
! { 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