diff --git a/frame/compat/cblas/src/cblas_xerbla.c b/frame/compat/cblas/src/cblas_xerbla.c
index 5d7908068f853a7f10c2195517a0575c5aa1ae35..ebe6bd80096f27870e68535ae5e188c0f095e01c 100644
--- a/frame/compat/cblas/src/cblas_xerbla.c
+++ b/frame/compat/cblas/src/cblas_xerbla.c
@@ -61,7 +61,7 @@ void cblas_xerbla(f77_int info, const char *rout, const char *form, ...)
       }
    }
    if (info)
-      fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);
+      fprintf(stderr, "Parameter %jd to routine %s was incorrect\n", ( intmax_t )info, rout);
    vfprintf(stderr, form, argptr);
    va_end(argptr);
    if (info && !info)