Update xerbla.c

diff --git a/interface/xerbla.c b/interface/xerbla.c
index b2687fb..c3a1745 100644 (file)
--- a/interface/xerbla.c
+++ b/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);
 }