Update xerbla.c
This commit is contained in:
@@ -14,7 +14,7 @@ void CNAME(blasint p, char *rout, char *form, ...)
|
||||
|
||||
if (p)
|
||||
fprintf(stderr, "Parameter %d to routine %s was incorrect\n", p, rout);
|
||||
vfprintf(stderr, form, argptr);
|
||||
vfprintf(stderr, form, args);
|
||||
va_end(args);
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user