diff --git a/tests/pdegen/mld_d_pde2d.f90 b/tests/pdegen/mld_d_pde2d.f90
index 8afdc1ce..908fada1 100644
--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@@ -1032,12 +1032,12 @@ contains
     call psb_bcast(icontxt,prec%aggr_ord)
     call psb_bcast(icontxt,prec%aggr_filter)
     call psb_bcast(icontxt,prec%mncrratio)
-    call psb_bcast(ictxt,prec%thrvsz)
+    call psb_bcast(icontxt,prec%thrvsz)
     if (prec%thrvsz > 0) then
       if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info)
-      call psb_bcast(ictxt,prec%athresv)
+      call psb_bcast(icontxt,prec%athresv)
     end if
-    call psb_bcast(ictxt,prec%athres)
+    call psb_bcast(icontxt,prec%athres)
     
     call psb_bcast(icontxt,prec%csize)
     call psb_bcast(icontxt,prec%cmat)
diff --git a/tests/pdegen/mld_d_pde3d.f90 b/tests/pdegen/mld_d_pde3d.f90
index 7fb70edb..47a5da7b 100644
--- a/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@@ -1073,12 +1073,12 @@ contains
     call psb_bcast(icontxt,prec%aggr_ord)
     call psb_bcast(icontxt,prec%aggr_filter)
     call psb_bcast(icontxt,prec%mncrratio)
-    call psb_bcast(ictxt,prec%thrvsz)
+    call psb_bcast(icontxt,prec%thrvsz)
     if (prec%thrvsz > 0) then
       if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info)
-      call psb_bcast(ictxt,prec%athresv)
+      call psb_bcast(icontxt,prec%athresv)
     end if
-    call psb_bcast(ictxt,prec%athres)
+    call psb_bcast(icontxt,prec%athres)
     
     call psb_bcast(icontxt,prec%csize)
     call psb_bcast(icontxt,prec%cmat)
diff --git a/tests/pdegen/mld_s_pde2d.f90 b/tests/pdegen/mld_s_pde2d.f90
index 7d34101e..0d825b67 100644
--- a/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@@ -1032,12 +1032,12 @@ contains
     call psb_bcast(icontxt,prec%aggr_ord)
     call psb_bcast(icontxt,prec%aggr_filter)
     call psb_bcast(icontxt,prec%mncrratio)
-    call psb_bcast(ictxt,prec%thrvsz)
+    call psb_bcast(icontxt,prec%thrvsz)
     if (prec%thrvsz > 0) then
       if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info)
-      call psb_bcast(ictxt,prec%athresv)
+      call psb_bcast(icontxt,prec%athresv)
     end if
-    call psb_bcast(ictxt,prec%athres)
+    call psb_bcast(icontxt,prec%athres)
     
     call psb_bcast(icontxt,prec%csize)
     call psb_bcast(icontxt,prec%cmat)
diff --git a/tests/pdegen/mld_s_pde3d.f90 b/tests/pdegen/mld_s_pde3d.f90
index ff221879..1ac05b44 100644
--- a/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@@ -1073,12 +1073,12 @@ contains
     call psb_bcast(icontxt,prec%aggr_ord)
     call psb_bcast(icontxt,prec%aggr_filter)
     call psb_bcast(icontxt,prec%mncrratio)
-    call psb_bcast(ictxt,prec%thrvsz)
+    call psb_bcast(icontxt,prec%thrvsz)
     if (prec%thrvsz > 0) then
       if (iam /= psb_root_) call psb_realloc(prec%thrvsz,prec%athresv,info)
-      call psb_bcast(ictxt,prec%athresv)
+      call psb_bcast(icontxt,prec%athresv)
     end if
-    call psb_bcast(ictxt,prec%athres)
+    call psb_bcast(icontxt,prec%athres)
     
     call psb_bcast(icontxt,prec%csize)
     call psb_bcast(icontxt,prec%cmat)