URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [990115-1.f] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log


c { dg-do compile }
C Derived from lapack
      SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
     $                   WORK, RWORK, INFO )
      COMPLEX(kind=8)         WORK( * )
c     Following declaration added on transfer to gfortran testsuite.
c     It is present in original lapack source
      integer rank
            DO 20 I = 1, RANK
               WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )
   20       CONTINUE
      END

Line No.	Rev	Author	Line
1	302	jeremybenn	`c { dg-do compile }`
2			`C Derived from lapack`
3			`SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,`
4			`$ WORK, RWORK, INFO )`
5			`COMPLEX(kind=8) WORK( * )`
6			`c Following declaration added on transfer to gfortran testsuite.`
7			`c It is present in original lapack source`
8			`integer rank`
9			`DO 20 I = 1, RANK`
10			`WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )`
11			`20 CONTINUE`
12			`END`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [990115-1.f] - Blame information for rev 437