OSDN Git Service

2009-11-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 26 Nov 2009 19:10:29 +0000 (19:10 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 26 Nov 2009 19:10:29 +0000 (19:10 +0000)
PR fortran/41278
* gfortran.dg/array_function_5.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154681 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/array_function_5.f90 [new file with mode: 0644]

index b9893da..21b2c8f 100644 (file)
@@ -1,3 +1,8 @@
+2009-11-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/41278
+       * gfortran.dg/array_function_5.f90: New test.
+
 2009-11-26  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/42048
diff --git a/gcc/testsuite/gfortran.dg/array_function_5.f90 b/gcc/testsuite/gfortran.dg/array_function_5.f90
new file mode 100644 (file)
index 0000000..da4873b
--- /dev/null
@@ -0,0 +1,16 @@
+! {  dg-do run )
+! PR41278 internal compiler error related to matmul and transpose
+! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+program bug
+  implicit none
+  real, dimension(3,3) :: matA,matB,matC
+
+  matA(1,:)=(/1., 2., 3./)
+  matA(2,:)=(/4., 5., 6./)
+  matA(3,:)=(/7., 8., 9./)
+
+  matB=matmul(transpose(0.5*matA),matA)
+  matC = transpose(0.5*matA)
+  matC = matmul(matC, matA)
+  if (any(matB.ne.matC)) call abort()
+end program bug