Test error exists of [CZ]GEBD2

[SD]GEBD2 are already tested. Closes #47

Author: angsch

TESTING/EIG/cerrbd.f

@@ -21,7 +21,8 @@
 *>
 *> \verbatim
 *>
-*> CERRBD tests the error exits for CGEBRD, CUNGBR, CUNMBR, and CBDSQR.
+*> CERRBD tests the error exits for CGEBD2, CGEBRD, CUNGBR, CUNMBR,
+*> and CBDSQR.
 *> \endverbatim
 *
 *  Arguments:
@@ -81,7 +82,8 @@ SUBROUTINE CERRBD( PATH, NUNIT )
       EXTERNAL           LSAMEN
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CBDSQR, CGEBRD, CHKXER, CUNGBR, CUNMBR
+      EXTERNAL           CHKXER, CBDSQR, CGEBD2, CGEBRD, CUNGBR,
+     $                   CUNMBR
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -132,6 +134,20 @@ SUBROUTINE CERRBD( PATH, NUNIT )
          CALL CHKXER( 'CGEBRD', INFOT, NOUT, LERR, OK )
          NT = NT + 4
 *
+*        CGEBD2
+*
+         SRNAMT = 'CGEBD2'
+         INFOT = 1
+         CALL CGEBD2( -1, 0, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'CGEBD2', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CGEBD2( 0, -1, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'CGEBD2', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL CGEBD2( 2, 1, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'CGEBD2', INFOT, NOUT, LERR, OK )
+         NT = NT + 3
+*
 *        CUNGBR
 *
          SRNAMT = 'CUNGBR'

TESTING/EIG/zerrbd.f

@@ -21,7 +21,8 @@
 *>
 *> \verbatim
 *>
-*> ZERRBD tests the error exits for ZGEBRD, ZUNGBR, ZUNMBR, and ZBDSQR.
+*> ZERRBD tests the error exits for ZGEBD2, ZGEBRD, ZUNGBR, ZUNMBR,
+*> and ZBDSQR.
 *> \endverbatim
 *
 *  Arguments:
@@ -81,7 +82,8 @@ SUBROUTINE ZERRBD( PATH, NUNIT )
       EXTERNAL           LSAMEN
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CHKXER, ZBDSQR, ZGEBRD, ZUNGBR, ZUNMBR
+      EXTERNAL           CHKXER, ZBDSQR, ZGEBD2, ZGEBRD, ZUNGBR,
+     $                   ZUNMBR
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -132,6 +134,20 @@ SUBROUTINE ZERRBD( PATH, NUNIT )
          CALL CHKXER( 'ZGEBRD', INFOT, NOUT, LERR, OK )
          NT = NT + 4
 *
+*        ZGEBD2
+*
+         SRNAMT = 'ZGEBD2'
+         INFOT = 1
+         CALL ZGEBD2( -1, 0, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'ZGEBD2', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZGEBD2( 0, -1, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'ZGEBD2', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL ZGEBD2( 2, 1, A, 1, D, E, TQ, TP, W, INFO )
+         CALL CHKXER( 'ZGEBD2', INFOT, NOUT, LERR, OK )
+         NT = NT + 3
+*
 *        ZUNGBR
 *
          SRNAMT = 'ZUNGBR'