* g77.f-torture/compile/20000601-2.f: New test.

From-SVN: r39125

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cd36903412662dcdc27b44052aaa511a8b2ecb6d..3669d46050b06ef26b970dee7202fb057e71ce26 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-19  "Billinghurst, David (CRTS)" <David.Billinghurst@riotinto.com>
+
+       * g77.f-torture/compile/20000601-2.f: New test.
+
 2001-01-18  Nathan Sidwell  <nathan@codesourcery.com>
 
        * g++.old-deja/g++.other/init17.C: New test.

diff --git a/gcc/testsuite/g77.f-torture/compile/20000601-1.f b/gcc/testsuite/g77.f-torture/compile/20000601-1.f
index 07e9c0061771bba1d88cc17a1e95442d74a0ac07..86144a1aa096d1a02e1bfa375c1ab163312948eb 100644 (file)
--- a/gcc/testsuite/g77.f-torture/compile/20000601-1.f
+++ b/gcc/testsuite/g77.f-torture/compile/20000601-1.f
@@ -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
 *

diff --git a/gcc/testsuite/g77.f-torture/compile/20000601-2.f b/gcc/testsuite/g77.f-torture/compile/20000601-2.f
new file mode 100644 (file)
index 0000000..75389dc
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000601-2.f
@@ -0,0 +1,27 @@
+      SUBROUTINE SGBTRF( M, KL, KU, AB, LDAB )
+
+*  Slightly modified version of 20000601-1.f that still ICES with
+*  CVS 20010118 g77 on mips-sgi-irix6.5/-mabi=64.
+*
+*  Originally derived from LAPACK 3.0 test suite failure.
+*
+*  David Billinghurst, (David.Billinghurst@riotinto.com.au)
+*  18 January 2001
+
+      INTEGER   KL, KU, LDAB, M
+      REAL      AB( LDAB, * )
+
+      INTEGER   J, JB, JJ, JP, KV, KM
+      REAL      WORK13(65,64), WORK31(65,64)
+      KV = KU + KL
+      DO J = 1, M
+         JB = MIN( 1, M-J+1 )
+         DO JJ = J, J + JB - 1
+            KM = MIN( KL, M-JJ )
+            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
+      END DO
+      RETURN
+      END