Update xerbla.c

interface/xerbla.c

@@ -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);
 }