OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

backport: [multiple changes] 

2009-07-28  H.J. Lu  <hongjiu.lu@intel.com>

	Backport from mainline:
	2009-07-27  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40848
	* gfortran.dg/altreturn_7.f90: New.

	2009-07-27  Simon Baldwin  <simonb@google.com>

	PR testsuite/40829
	* gcc.dg/vect/no-scevccp-noreassoc-outer-2.c: Extended array 'a'
	so that indexing no longer runs off array end.

	2009-07-24  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40822
	* gfortran.dg/char_length_16.f90: New.

From-SVN: r150169
This commit is contained in:
H.J. Lu 2009-07-28 16:51:19 +00:00 committed by H.J. Lu
parent ed74509c15
commit f8e63c1a58
4 changed files with 66 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,22 @@
2009-07-28 H.J. Lu <hongjiu.lu@intel.com>
Backport from mainline:
2009-07-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/40848
* gfortran.dg/altreturn_7.f90: New.
2009-07-27 Simon Baldwin <simonb@google.com>
PR testsuite/40829
* gcc.dg/vect/no-scevccp-noreassoc-outer-2.c: Extended array 'a'
so that indexing no longer runs off array end.
2009-07-24 Janus Weil <janus@gcc.gnu.org>
PR fortran/40822
* gfortran.dg/char_length_16.f90: New.
2009-07-28 Jakub Jelinek <jakub@redhat.com>
PR fortran/40878

2
gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c
View File

@ -4,7 +4,7 @@
#include "tree-vect.h"
#define N 40
int a[200*N];
int a[200*N+N];
__attribute__ ((noinline)) void
foo (){

34
gcc/testsuite/gfortran.dg/altreturn_7.f90 Normal file
View File

@ -0,0 +1,34 @@
! { dg-do compile }
!
! PR 40848: [4.5 Regression] ICE with alternate returns
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
MODULE TT
INTERFACE M
MODULE PROCEDURE M1,M2
END INTERFACE
CONTAINS
SUBROUTINE M1(I,*)
INTEGER :: I
RETURN 1
END SUBROUTINE
SUBROUTINE M2(I,J)
INTEGER :: I,J
END SUBROUTINE
END MODULE
USE TT
CALL M(1,*2)
CALL ABORT()
2 CONTINUE
END
! { dg-final { cleanup-modules "tt" } }

12
gcc/testsuite/gfortran.dg/char_length_16.f90 Normal file
View File

@ -0,0 +1,12 @@
! { dg-do compile }
!
! PR 40822: [4.5 Regression] Internal compiler error when Fortran intrinsic LEN referenced before explicit declaration
!
! Contributed by Mat Cross <mathewc@nag.co.uk>
SUBROUTINE SEARCH(ITEMVAL)
CHARACTER (*) :: ITEMVAL
CHARACTER (LEN(ITEMVAL)) :: ITEM
INTRINSIC LEN
END