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/] [graphite/] [id-10.f90] - Blame information for rev 302

Line No.	Rev	Author	Line
1	302	jeremybenn	`subroutine foo ( uplo, ap, y )`
2			`character*1 uplo`
3			`complex(kind((1.0d0,1.0d0))) ap( * ), y( * )`
4			`if ( .not. scan( uplo, 'uu' )>0.and. &`
5			`.not. scan( uplo, 'll' )>0 )then`
6			`do 60, j = 1, n`
7			`y( j ) = y( j ) + dble( ap( kk ) )`
8			`kk = kk + j`
9			`60 continue`
10			`end if`
11			`end`