1c { dg-do compile }
2C 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( * )
6c     Following declaration added on transfer to gfortran testsuite.
7c     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