Update g77.f-torture/compile/20000601-1.f (PR fortran/275)

[Billinghurst, David (CRTS)]

Test case g77.f-torture/compile/20000601-1.f now passes, but the original
problem PR fortran/275 is still present.  With this patch the test
reproduces the original problem

2001-01-19  David Billinghurst  <David.Billinghurst@riotinto.com>

	* g77.f-torture/compile/20000601-1.f:  Modify test case.
	Original test no longer reproduces problem.


cvs diff -u g77.f-torture/compile/20000601-1.f
Index: g77.f-torture/compile/20000601-1.f
===================================================================
RCS file: /cvs/gcc/egcs/gcc/testsuite/g77.f-torture/compile/20000601-1.f,v
retrieving revision 1.1
diff -u -r1.1 20000601-1.f
--- 20000601-1.f        2000/06/03 21:34:24     1.1
+++ 20000601-1.f        2001/01/19 05:04:06
@@ -1,5 +1,6 @@
       SUBROUTINE SGBTRF( M, KL, KU, AB, LDAB )
 
+*  PR fortran/275
 *  ICE in `change_address', at emit-rtl.c:1589 with -O1 and above
 *  g77 version 2.96 20000530 (experimental) on mips-sgi-irix6.5/-mabi=64
 *
@@ -18,7 +19,7 @@
          JB = MIN( 1, M-J+1 )
          DO JJ = J, J + JB - 1
             KM = MIN( KL, M-JJ )
-            JP = KM+1
+            JP = MAX( KM+1, AB( KV+1, JJ ) )
             CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1,
      $           AB( KV+JP+JJ-J, J ), LDAB-1 )
          END DO

+++++++++++++++++++++++++++++++++++++++++
(Mr) David Billinghurst
Comalco Research Centre
PO Box 316, Thomastown, Vic, Australia, 3074
Phone:	+61 3 9469 0642
FAX:	+61 3 9462 2700
Email:	David.Billinghurst@riotinto.com