aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-28 16:51:19 +0000
committerhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-28 16:51:19 +0000
commit608b95762dde4f4e234f2ace7112f18bb9fb69ab (patch)
treefa5353f83a5a61b82b530a5c8625afb5eda14067
parent9db953d7ee1e541a536fd97955c03f3c6c33fa14 (diff)
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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_4-branch@150169 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog19
-rw-r--r--gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c2
-rw-r--r--gcc/testsuite/gfortran.dg/altreturn_7.f9034
-rw-r--r--gcc/testsuite/gfortran.dg/char_length_16.f9012
4 files changed, 66 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d97f3774dcb..a44d60fa97c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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
diff --git a/gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c b/gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c
index 71897ff6a6f..9a4fa3f2538 100644
--- a/gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c
+++ b/gcc/testsuite/gcc.dg/vect/no-scevccp-noreassoc-outer-2.c
@@ -4,7 +4,7 @@
#include "tree-vect.h"
#define N 40
-int a[200*N];
+int a[200*N+N];
__attribute__ ((noinline)) void
foo (){
diff --git a/gcc/testsuite/gfortran.dg/altreturn_7.f90 b/gcc/testsuite/gfortran.dg/altreturn_7.f90
new file mode 100644
index 00000000000..6eb0c78bde7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/altreturn_7.f90
@@ -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" } }
+
diff --git a/gcc/testsuite/gfortran.dg/char_length_16.f90 b/gcc/testsuite/gfortran.dg/char_length_16.f90
new file mode 100644
index 00000000000..3ff14d2395b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/char_length_16.f90
@@ -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
+