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