[patch, committed] Fix testcase matmul_1.f90

[Thomas Koenig]

Committed to mainline and 4.0 as obviously correct (the testcase
was illegal), and the test still passes.

	Thomas

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).


-------------- next part --------------
Index: gfortran.dg/matmul_1.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.dg/matmul_1.f90,v
retrieving revision 1.1
diff -c -p -r1.1 matmul_1.f90
*** gfortran.dg/matmul_1.f90	30 Apr 2005 18:17:52 -0000	1.1
--- gfortran.dg/matmul_1.f90	29 Jul 2005 21:44:59 -0000
*************** Program matmul_1
*** 33,39 ****
  !                           array sections
  
    c = 0.0_T
!   c = matmul (a(7:9,3:N), b(3:N,3:4))
    if (sum (c) /= 576.0_T) call abort ()
  
  !                           uses a temp
--- 33,39 ----
  !                           array sections
  
    c = 0.0_T
!   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