diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-12-11 20:09:59 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-12-11 20:09:59 +0000 |
| commit | 1dbe5c7838f306d8867802fa6e394d0fa5e1bf86 (patch) | |
| tree | 9559e253ff1c533c65676ebf5fa24543309d4861 /gcc | |
| parent | b4e9d41d1a9f94d7245e69f0cc5e34995205aa65 (diff) | |
| download | gcc-1dbe5c7838f306d8867802fa6e394d0fa5e1bf86.zip gcc-1dbe5c7838f306d8867802fa6e394d0fa5e1bf86.tar.gz gcc-1dbe5c7838f306d8867802fa6e394d0fa5e1bf86.tar.bz2 | |
re PR fortran/46842 (wrong results with MATMUL(..., TRANSPOSE (func ())) -- 465.tonto test run miscompares)
2010-12-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/46842
* gfortran.dg/array_function_6.f90: New test.
From-SVN: r167714
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_function_6.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 08baf34..ed15e16 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-12-11 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/46842 + * gfortran.dg/array_function_6.f90: New test. + 2010-12-11 Nicola Pero <nicola.pero@meta-innovation.com> * objc.dg/gnu-api-2-resolve-method.m: New. diff --git a/gcc/testsuite/gfortran.dg/array_function_6.f90 b/gcc/testsuite/gfortran.dg/array_function_6.f90 new file mode 100644 index 0000000..3dab43d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_function_6.f90 @@ -0,0 +1,17 @@ +! { dg-do run } +! PR46842 wrong results with MATMUL(..., TRANSPOSE (func ())) +implicit none +call sub() +contains + subroutine sub() + real, dimension(2,2) :: b + b = 1.0 + b = matmul(b,transpose(func())) + if (any(b.ne.reshape((/ 4.0, 4.0, 6.0, 6.0 /),[2,2]) )) print *, b + end subroutine + + function func() result(res) + real, dimension(2,2) :: res + res = reshape([1,2,3,4], [2,2]) + end function +end |