gcc/testsuite/g77.f-torture/compile/990115-1.f

   1 C Derived from lapack
   2       SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
   3      $                   WORK, RWORK, INFO )
   4       COMPLEX*16         WORK( * )
   5             DO 20 I = 1, RANK
   6                WORK( ISMAX+I-1 ) = S2*WORK( ISMAX+I-1 )
   7    20       CONTINUE
   8       END