fixes for CHE tester

Author: iyamazaki

TESTING/LIN/cchkhe_aa_2stage.f

@@ -187,7 +187,8 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS,
       LOGICAL            DOTYPE( * )
       INTEGER            IWORK( * ), NBVAL( * ), NSVAL( * ), NVAL( * )
       COMPLEX            A( * ), AFAC( * ), AINV( * ), B( * ),
-     $                   RWORK( * ), WORK( * ), X( * ), XACT( * )
+     $                   WORK( * ), X( * ), XACT( * )
+       REAL              RWORK( * )
 *     ..
 *
 *  =====================================================================

TESTING/LIN/cerrhe.f

@@ -520,7 +520,8 @@ SUBROUTINE CERRHE( PATH, NUNIT )
          INFOT = 10
          CALL CHETRS_AA( 'U', 2, 1, A, 2, IP, B, 2, W, -2, INFO )
          CALL CHKXER( 'CHETRS_AA', INFOT, NOUT, LERR, OK )
-      ELSE IF( LSAMEN( 2, C2, 'S2' ) ) THEN
+*
+      ELSE IF( LSAMEN( 2, C2, 'H2' ) ) THEN
 *
 *        Test error exits of the routines that use factorization
 *        of a symmetric indefinite matrix with Aasen's algorithm.