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] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
subroutine foo ( uplo, ap, y )
character*1 uplo
complex(kind((1.0d0,1.0d0))) ap( * ), y( * )
if ( .not. scan( uplo, 'uu' )>0.and. &
.not. scan( uplo, 'll' )>0 )then
do 60, j = 1, n
y( j ) = y( j ) + dble( ap( kk ) )
kk = kk + j
60 continue
end if
end
Go to most recent revision | Compare with Previous | Blame | View Log