gcc/testsuite/gfortran.fortran-torture/compile/pr40421.f

   1       SUBROUTINE VROT2(N,DIS)
   2       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
   3       PARAMETER(ZERO=0.0D+00)
   4       COMMON /SYMSPD/ PTR(3,144)
   5       DIMENSION DIS(3,2),TMP(3,2)
   6       DO I = 1,3
   7         TMP1 = ZERO
   8         DO J = 1,3
   9           TMP1 = TMP1 + PTR(I,N+J)
  10         END DO
  11         TMP(I,1) = TMP1
  12       END DO
  13       DO I = 1,3
  14         DIS(I,1) = TMP(I,1)
  15       END DO
  16       RETURN
  17       END
  18