1 files changed, 62 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/20000511-2.f b/gcc/testsuite/gfortran.dg/g77/20000511-2.f
new file mode 100644
index 000000000..1ae24ae5b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/20000511-2.f
@@ -0,0 +1,62 @@
+c { dg-do compile }
+      subroutine sgbcon(norm,n,kl,ku,ab,ldab,ipiv,anorm,rcond,work,iwork
+     &,info)
+C
+C  -- LAPACK routine (version 3.0) --
+C     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+C     Courant Institute, Argonne National Lab, and Rice University
+C     September 30, 1994
+C
+C     .. Scalar Arguments ..
+      character norm
+      integer info,kl,ku,ldab,n
+      real anorm,rcond
+C     ..
+C     .. Array Arguments ..
+      integer ipiv(n),iwork(n)
+      real ab(ldab,n),work(n)
+C     ..
+C
+C  Purpose
+C  =======
+C demonstrate g77 bug at -O -funroll-loops
+C  =====================================================================
+C
+C     .. Parameters ..
+      real one,zero
+      parameter(one= 1.0e+0,zero= 0.0e+0)
+C     ..
+C     .. Local Scalars ..
+      logical lnoti,onenrm
+      character normin
+      integer ix,j,jp,kase,kase1,kd,lm
+      real ainvnm,scale,smlnum,t
+C     ..
+C     .. External Functions ..
+      logical lsame
+      integer isamax
+      real sdot,slamch
+      externallsame,isamax,sdot,slamch
+C     ..
+C     .. External Subroutines ..
+      externalsaxpy,slacon,slatbs,srscl,xerbla
+C     ..
+C     .. Executable Statements ..
+C
+C           Multiply by inv(L).
+C
+      do j= 1,n-1
+C the following min() intrinsic provokes this bug
+         lm= min(kl,n-j)
+         jp= ipiv(j)
+         t= work(jp)
+         if(jp.ne.j)then
+C but only when combined with this if block
+            work(jp)= work(j)
+            work(j)= t
+         endif
+C and this subroutine call
+         call saxpy(lm,-t,ab(kd+1,j),1,work(j+1),1)
+      enddo
+      return
+      end