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

gcc/testsuite/ChangeLog

+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

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