diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-11-26 19:10:29 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-11-26 19:10:29 +0000 |
| commit | ba2335f224bd177397440d450117df3100ec579a (patch) | |
| tree | 34d087f3bf5e8b065790f8096f7ce6d568cf2157 | |
| parent | 4252ed2bd7cfb675d210bf2081f131b9189ebda8 (diff) | |
| download | gcc-ba2335f224bd177397440d450117df3100ec579a.zip gcc-ba2335f224bd177397440d450117df3100ec579a.tar.gz gcc-ba2335f224bd177397440d450117df3100ec579a.tar.bz2 | |
re PR fortran/41278 (internal compiler error related to matmul and transpose)
2009-11-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/41278
* gfortran.dg/array_function_5.f90: New test.
From-SVN: r154681
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_function_5.f90 | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b9893da..21b2c8f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 index 0000000..da4873b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_function_5.f90 @@ -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 |