From: Mikael Morin <mikael@gcc.gnu.org>
Date: Thu, 23 Dec 2010 13:39:06 +0000 (+0000)
Subject: re PR fortran/46978 (TRANSPOSE with RESHAPE and ALLOCATE: Segfault)
X-Git-Tag: releases/gcc-4.6.0~1635
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=5235ddbc1493486549cd6fc599d60c13b913847c;p=thirdparty%2Fgcc.git

re PR fortran/46978 (TRANSPOSE with RESHAPE and ALLOCATE: Segfault)

2010-12-23  Mikael Morin  <mikael@gcc.gnu.org>

	PR fortran/46978
	* gfortran.dg/transpose_intrinsic_func_call_1.f90: New test.

From-SVN: r168207
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7f0c770145f8..2f81d85be628 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-23  Mikael Morin  <mikael@gcc.gnu.org>
+
+	PR fortran/46978
+	* gfortran.dg/transpose_intrinsic_func_call_1.f90: New test.
+
 2010-12-23  Nicola Pero  <nicola.pero@meta-innovation.com>
 
 	* obj-c.dg/gnu-api-2-class.m: Test that class_addMethod() returns
diff --git a/gcc/testsuite/gfortran.dg/transpose_intrinsic_func_call_1.f90 b/gcc/testsuite/gfortran.dg/transpose_intrinsic_func_call_1.f90
new file mode 100644
index 000000000000..53d727d9b286
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/transpose_intrinsic_func_call_1.f90
@@ -0,0 +1,26 @@
+! { dg-do run }
+!
+! PR fortran/46978
+! The coor assignment was using the wrong loop bounds if the argument to
+! transpose was an intrinsic function call
+!
+! Original testcase by Martien Huelsen <m.a.hulsen@tue.nl>
+! Reduced by Tobias Burnus <burnus@net-b.de>
+
+program elastic2
+  implicit none
+  real, allocatable, dimension(:,:) :: coor
+  real, allocatable, dimension(:) :: a
+  integer :: nno
+  nno = 3
+  allocate(a(2*nno))
+  call two()
+  coor = transpose ( reshape ( a, (/2,nno/) ) )
+  if (any(coor /= 12)) call abort
+contains
+  subroutine two()
+    allocate(coor(3,2))
+    coor = 99
+    a = 12
+  end subroutine
+end program elastic2