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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr49721-1.f] - Blame information for rev 747

Line No.	Rev	Author	Line
1	695	jeremybenn	`PARAMETER( LM=7 )`
2			`PARAMETER( NM=2+2LM, NV=NM3 )`
3			`PARAMETER( NR = (8(NM3+NM2+5NM-23+7*LM))/7 )`
4			`COMMON /X/ U, V, R, A`
5			`REAL*8 U(NR),V(NV),R(NR),A(0:3)`
6			`DO 20 IT=1,NIT`
7			`CALL RESID(U,V,R,N,A)`
8			`20 CONTINUE`
9			`END`