Reduced testcase

small.f (text/plain), 682 bytes, created by Donnie Berkholz (RETIRED) on 2011-06-08 02:06:07 UTC

      SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK,
     $                   EPS3, SMLNUM, INFO )
      LOGICAL            NOINIT, RIGHTV
      COMPLEX*16         B( LDB, * ), H( LDH, * ), V( * )
      DOUBLE PRECISION   GROWTO, NRMSML, ROOTN, RTEMP, SCALE, VNORM
      IF( RIGHTV ) THEN
            IF( CABS1( B( I, I ) ).LT.CABS1( EI ) ) THEN
                  B( I+1, J ) = B( I, J ) - X*TEMP
            END IF
      END IF
      DO 110 ITS = 1, N
         CALL ZLATRS( 'Upper', TRANS, 'Nonunit', NORMIN, N, B, LDB, V,
     $                SCALE, RWORK, IERR )
         DO 100 I = 2, N
            V( I ) = RTEMP
  100    CONTINUE
  110 CONTINUE
      END