xUNHR_COL01: pass required complex-valued argument

christoph-conrads · christoph-conrads · commit 7012e4db0955 · 2021-02-14T18:21:20.000Z
This issue was detected by gfortran 10.2 on Fedora 33 (amd64).
diff --git a/TESTING/LIN/cunhr_col01.f b/TESTING/LIN/cunhr_col01.f
@@ -313,7 +313,7 @@ SUBROUTINE CUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )
 *     TEST 2
 *     Compute |I - (Q**H)*Q| / ( eps * m ) and store in RESULT(2)
 *
-      CALL CLASET( 'Full', M, M, ZERO, CONE, R, M )
+      CALL CLASET( 'Full', M, M, CZERO, CONE, R, M )
       CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )
       RESID = CLANSY( '1', 'Upper', M, R, M, RWORK )
       RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )
diff --git a/TESTING/LIN/zunhr_col01.f b/TESTING/LIN/zunhr_col01.f
@@ -313,7 +313,7 @@ SUBROUTINE ZUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )
 *     TEST 2
 *     Compute |I - (Q**H)*Q| / ( eps * m ) and store in RESULT(2)
 *
-      CALL ZLASET( 'Full', M, M, ZERO, CONE, R, M )
+      CALL ZLASET( 'Full', M, M, CZERO, CONE, R, M )
       CALL ZHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )
       RESID = ZLANSY( '1', 'Upper', M, R, M, RWORK )
       RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )

Original file line number	Diff line number	Diff line change
`@@ -313,7 +313,7 @@ SUBROUTINE CUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )`
`313`	`313`	`* TEST 2`
`314`	`314`	`* Compute \|I - (Q*H)Q\| / ( eps * m ) and store in RESULT(2)`
`315`	`315`	`*`
`316`		`- CALL CLASET( 'Full', M, M, ZERO, CONE, R, M )`
	`316`	`+ CALL CLASET( 'Full', M, M, CZERO, CONE, R, M )`
`317`	`317`	`CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )`
`318`	`318`	`RESID = CLANSY( '1', 'Upper', M, R, M, RWORK )`
`319`	`319`	`RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )`
Original file line number	Diff line number	Diff line change
`@@ -313,7 +313,7 @@ SUBROUTINE ZUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )`
`313`	`313`	`* TEST 2`
`314`	`314`	`* Compute \|I - (Q*H)Q\| / ( eps * m ) and store in RESULT(2)`
`315`	`315`	`*`
`316`		`- CALL ZLASET( 'Full', M, M, ZERO, CONE, R, M )`
	`316`	`+ CALL ZLASET( 'Full', M, M, CZERO, CONE, R, M )`
`317`	`317`	`CALL ZHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )`
`318`	`318`	`RESID = ZLANSY( '1', 'Upper', M, R, M, RWORK )`
`319`	`319`	`RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )`