From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 3 May 2015 18:09:57 +0000 (+0000)
Subject: re PR fortran/37131 (inline matmul for small matrix sizes)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=816426afdd2ec146cd01bb8172729c8b56f66f79;p=gcc.git

re PR fortran/37131 (inline matmul for small matrix sizes)

2015-05-03  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/37131
	* gfortran.dg/bound_9.f90:  Add pointer assignment.

From-SVN: r222751
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e5ff091a9f3..3c92d7e333a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-05-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/37131
+	* gfortran.dg/bound_9.f90:  Add pointer assignment.
+
 2015-05-01  Paolo Carlini  <paolo.carlini@oracle.com>
 	    Prathamesh Kulharni  <prathamesh.kulkarni@linaro.org>
 
diff --git a/gcc/testsuite/gfortran.dg/bound_9.f90 b/gcc/testsuite/gfortran.dg/bound_9.f90
index d413ca49eb0..b88ff143462 100644
--- a/gcc/testsuite/gfortran.dg/bound_9.f90
+++ b/gcc/testsuite/gfortran.dg/bound_9.f90
@@ -54,6 +54,7 @@ program main
   call foo(empty, a(2:0), n, m)
   if (n .ne. 1 .or. m .ne. 1) call abort
   allocate (x(0))
+  y => a(3:2)
   call bar (x, y, n, m)
   if (n .ne. 1 .or. m .ne. 1) call abort