@@ -437,9 +437,9 @@ static real c_b43 = (float)1.;
437437
438438 /* Local variables */
439439 static integer i__ ;
440- extern /* Subroutine */ int ctest_ (int * , complex * , complex * , complex * , real * );
440+ extern /* Subroutine */ int ctest_ (integer * , complex * , complex * , complex * , real * );
441441 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 * );
443443 static complex cx [8 ];
444444 extern real scnrm2test_ (int * , complex * , int * );
445445 static integer np1 ;
@@ -734,7 +734,7 @@ static real c_b43 = (float)1.;
734734 static complex cdot [1 ];
735735 static integer lenx , leny , i__ ;
736736 static complex ctemp ;
737- extern /* Subroutine */ int ctest_ (int * , complex * , complex * , complex * , real * );
737+ extern /* Subroutine */ int ctest_ (integer * , complex * , complex * , complex * , real * );
738738 static integer ksize ;
739739 extern /* Subroutine */ int cdotctest_ (int * , complex * , int * , complex * , int * ,complex * ), ccopytest_ (int * , complex * , int * , complex * , int * ), cdotutest_ (int * , complex * , int * , complex * , int * , complex * ),
740740 cswaptest_ (int * , complex * , int * , complex * , int * ), caxpytest_ (int * , complex * , complex * , int * , complex * , int * );
@@ -939,7 +939,7 @@ doublereal sdiff_(real* sa, real* sb)
939939 /* Local variables */
940940 static integer i__ ;
941941 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 * );
943943
944944/* **************************** CTEST ***************************** */
945945
0 commit comments