2 C { dg-options "-std=legacy" }
3 SUBROUTINE DTREVC
( SIDE
, HOWMNY
, SELECT
, N
, T
, LDT
, VL
, LDVL
, VR
,
4 $ LDVR
, MM
, M
, WORK
, INFO
)
5 DOUBLE PRECISION T
( LDT
, * ), VL
( LDVL
, * ), VR
( LDVR
, * ),
7 DOUBLE PRECISION X
( 2, 2 )
8 CALL DLALN2
( .FALSE
., 1, 1, SMIN
, ONE
, T
( J
, J
),
9 $ ZERO
, X
, 2, SCALE
, XNORM
, IERR
) ! { dg
-warning
"Type mismatch" }
10 CALL DSCAL
( KI
, SCALE
, WORK
( 1+N
), 1 )
11 DO 90 J
= KI
- 2, 1, -1
16 IF( T
( J
, J
-1 ).NE
.ZERO
) THEN
17 IF( WORK
( J
).GT
.BIGNUM
/ XNORM
) THEN
18 X
( 1, 1 ) = X
( 1, 1 ) / XNORM
21 CALL DLALN2
( .FALSE
., 2, 2, SMIN
, ONE
,
22 $ T
( J
-1, J
-1 ), LDT
, ONE
, ONE
, ! { dg
-warning
"Type mismatch" }
23 $ XNORM
, IERR
) ! { dg
-warning
"Type mismatch" }
24 CALL DAXPY
( J
-2, -X
( 1, 1 ), T
( 1, J
-1 ), 1,
26 CALL DAXPY
( J
-2, -X
( 2, 2 ), T
( 1, J
), 1,