gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/pr49721-1.f


1
2
3
4
5
6
7
8
9

       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