projects
/
gcc.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Permute conversion and addition of constant for zero-extend.
[gcc.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
pr49721-1.f
1
PARAMETER( LM=7 )
2
PARAMETER( NM=2+2**LM, NV=NM**3 )
3
PARAMETER( NR = (8*(NM**3+NM**2+5*NM-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