URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-10.f90] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	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`