URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20000601-2.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
c { dg-do compile } 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, F 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 = F( 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
Go to most recent revision | Compare with Previous | Blame | View Log