@@ -437,9 +437,9 @@ static real c_b43 = (float)1.;
437
437
438
438
/* Local variables */
439
439
static integer i__ ;
440
- extern /* Subroutine */ int ctest_ (int * , complex * , complex * , complex * , real * );
440
+ extern /* Subroutine */ int ctest_ (integer * , complex * , complex * , complex * , real * );
441
441
static complex mwpcs [5 ], mwpct [5 ];
442
- extern /* Subroutine */ int itest1_ (int * , int * ), stest1_ (real * ,real * ,real * ,real * );
442
+ extern /* Subroutine */ int itest1_ (integer * , integer * ), stest1_ (real * ,real * ,real * ,real * );
443
443
static complex cx [8 ];
444
444
extern real scnrm2test_ (int * , complex * , int * );
445
445
static integer np1 ;
@@ -734,7 +734,7 @@ static real c_b43 = (float)1.;
734
734
static complex cdot [1 ];
735
735
static integer lenx , leny , i__ ;
736
736
static complex ctemp ;
737
- extern /* Subroutine */ int ctest_ (int * , complex * , complex * , complex * , real * );
737
+ extern /* Subroutine */ int ctest_ (integer * , complex * , complex * , complex * , real * );
738
738
static integer ksize ;
739
739
extern /* Subroutine */ int cdotctest_ (int * , complex * , int * , complex * , int * ,complex * ), ccopytest_ (int * , complex * , int * , complex * , int * ), cdotutest_ (int * , complex * , int * , complex * , int * , complex * ),
740
740
cswaptest_ (int * , complex * , int * , complex * , int * ), caxpytest_ (int * , complex * , complex * , int * , complex * , int * );
@@ -939,7 +939,7 @@ doublereal sdiff_(real* sa, real* sb)
939
939
/* Local variables */
940
940
static integer i__ ;
941
941
static real scomp [20 ], ssize [20 ], strue [20 ];
942
- extern /* Subroutine */ int stest_ (int * , real * ,real * ,real * ,real * );
942
+ extern /* Subroutine */ int stest_ (integer * , real * ,real * ,real * ,real * );
943
943
944
944
/* **************************** CTEST ***************************** */
945
945
0 commit comments