fix prototype

martin-frbg · web-flow · commit d8126c76e770 · 2023-10-08T13:38:39.000+02:00
diff --git a/ctest/c_cblat1c.c b/ctest/c_cblat1c.c
@@ -887,7 +887,7 @@ static real c_b43 = (float)1.;
 /* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
 {
     static real scomp[1], strue[1];
-    extern /* Subroutine */ int stest_(int*, real*, real*, real*, real*);
+    extern /* Subroutine */ int stest_(integer*, real*, real*, real*, real*);
 
 /*     ************************* STEST1 ***************************** */
 

Original file line number	Diff line number	Diff line change
`@@ -887,7 +887,7 @@ static real c_b43 = (float)1.;`
`887`	`887`	`/* Subroutine / int stest1_(real scomp1, real* strue1, real* ssize, real* sfac)`
`888`	`888`	`{`
`889`	`889`	`static real scomp[1], strue[1];`
`890`		`- extern /* Subroutine / int stest_(int, real, real, real, real);`
	`890`	`+ extern /* Subroutine / int stest_(integer, real, real, real, real);`
`891`	`891`
`892`	`892`	`/* *********************** STEST1 *************************** */`
`893`	`893`