gcc/testsuite/gfortran.dg/g77/20000601-2.f

   1 c { dg-do compile }
   2       SUBROUTINE SGBTRF( M, KL, KU, AB, LDAB )
   3
   4 *  Slightly modified version of 20000601-1.f that still ICES with
   5 *  CVS 20010118 g77 on mips-sgi-irix6.5/-mabi=64.
   6 *
   7 *  Originally derived from LAPACK 3.0 test suite failure.
   8 *
   9 *  David Billinghurst, (David.Billinghurst@riotinto.com.au)
  10 *  18 January 2001
  11
  12       INTEGER   KL, KU, LDAB, M
  13       REAL      AB( LDAB, * )
  14
  15       INTEGER   J, JB, JJ, JP, KV, KM, F
  16       REAL      WORK13(65,64), WORK31(65,64)
  17       KV = KU + KL
  18       DO J = 1, M
  19          JB = MIN( 1, M-J+1 )
  20          DO JJ = J, J + JB - 1
  21             KM = MIN( KL, M-JJ )
  22             JP = F( KM+1, AB( KV+1, JJ ) )
  23             CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1,
  24      $           AB( KV+JP+JJ-J, J ), LDAB-1 )
  25          END DO
  26       END DO
  27       RETURN
  28       END