gcc/testsuite/gfortran.dg/vect/pr33301.f

   1 c { dg-do compile }
   2 C Derived from lapack
   3       SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
   4      $                   WORK, RWORK, INFO )
   5       COMPLEX(kind=8)         WORK( * )
   6 c     Following declaration added on transfer to gfortran testsuite.
   7 c     It is present in original lapack source
   8       integer rank
   9             DO 20 I = 1, RANK
  10                WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )
  11    20       CONTINUE
  12       END
  13
  14 c { dg-final { cleanup-tree-dump "vect" } }