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] - Rev 695
Compare with Previous | Blame | View Log
PARAMETER( LM=7 ) PARAMETER( NM=2+2**LM, NV=NM**3 ) PARAMETER( NR = (8*(NM**3+NM**2+5*NM-23+7*LM))/7 ) COMMON /X/ U, V, R, A REAL*8 U(NR),V(NV),R(NR),A(0:3) DO 20 IT=1,NIT CALL RESID(U,V,R,N,A) 20 CONTINUE END