matmul_1.f90: Correct LHS of matmul test (it used to have the wrong bounds).

2005-07-29  Thomas Koenig  <Thomas.Koenig@online.de>

        * gfortran.dg/matmul_1.f90:  Correct LHS of matmul test (it
        used to have the wrong bounds).

From-SVN: r102568

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9516f68f83fb828afc0064ca86e95e44db4df83d..936ff524a8f612a3d54dfdc4b26cd5e3ee53aa50 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-29  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * gfortran.dg/matmul_1.f90:  Correct LHS of matmul test (it
+       used to have the wrong bounds).
+
 2005-07-29  Joseph S. Myers  <joseph@codesourcery.com>
 
        PR c/21720

diff --git a/gcc/testsuite/gfortran.dg/matmul_1.f90 b/gcc/testsuite/gfortran.dg/matmul_1.f90
index b3881c9faccaaf6e81f3b50c3da0d6f3ddbabb2a..6496f88a2c7d1045bee42c2b1719533d0b723473 100644 (file)
--- a/gcc/testsuite/gfortran.dg/matmul_1.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_1.f90
@@ -33,7 +33,7 @@ Program matmul_1
 !                           array sections
 
   c = 0.0_T
-  c = matmul (a(7:9,3:N), b(3:N,3:4))
+  c(1:3,1:2) = matmul (a(7:9,3:N), b(3:N,3:4))
   if (sum (c) /= 576.0_T) call abort ()
 
 !                           uses a temp