URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-25.f] - Rev 694
Compare with Previous | Blame | View Log
SUBROUTINE TFTRAB(NA,NC,D,WRK) DIMENSION D(NA,NC), WRK(NA) DO 160 K=1,NA DUM = DUM + D(K,J) 160 CONTINUE WRK(I) = DUM DO 180 I=1,NA D(I,J) = WRK(I) 180 CONTINUE END