diff --git a/frame/compat/bla_amax_amd.c b/frame/compat/bla_amax_amd.c
index 926db8841..9b5c7b366 100644
--- a/frame/compat/bla_amax_amd.c
+++ b/frame/compat/bla_amax_amd.c
@@ -291,7 +291,7 @@ f77_int idamax_blis_impl
         incx0 = ( inc_t )(*incx);
     }
 
-    cntx_t* cntx;
+    cntx_t* cntx = NULL;
 
     // Query the architecture ID
     arch_t id = bli_arch_query_id();
@@ -325,7 +325,7 @@ f77_int idamax_blis_impl
       n0,
       x0, incx0,
       &bli_index,
-      NULL
+      cntx
     );
 
     /*
diff --git a/frame/compat/bla_scal_amd.c b/frame/compat/bla_scal_amd.c
index 65173b647..55faa1659 100644
--- a/frame/compat/bla_scal_amd.c
+++ b/frame/compat/bla_scal_amd.c
@@ -666,7 +666,7 @@ void zscal_blis_impl
   // Definition of function pointer
   zscalv_ker_ft scalv_fun_ptr;
 
-  cntx_t* cntx;
+  cntx_t* cntx = NULL;
 
   // Query the architecture ID
   arch_t id = bli_arch_query_id();
@@ -700,9 +700,9 @@ void zscal_blis_impl
   (
     BLIS_NO_CONJUGATE,
     n0,
-    alpha,
+    (dcomplex*) alpha,
     x0, incx0,
-    NULL
+    cntx
   );
 
   AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_1)