diff --git a/mlprec/impl/mld_c_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_c_bld_mlhier_aggsize.f90
index f968245e..6d1cb106 100644
--- a/mlprec/impl/mld_c_bld_mlhier_aggsize.f90
+++ b/mlprec/impl/mld_c_bld_mlhier_aggsize.f90
@@ -198,7 +198,6 @@ subroutine mld_c_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
     ! Now set the smoother/solver parts. 
     if (info == psb_success_) then 
       if (i ==1) then 
-        ! This is a workaround for a bug in gfortran 4.7.2
         allocate(precv(i)%sm,source=base_sm,stat=info) 
       else if (i < newsz) then 
         allocate(precv(i)%sm,source=med_sm,stat=info) 
diff --git a/mlprec/impl/mld_d_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_d_bld_mlhier_aggsize.f90
index 0004f073..dd5d90da 100644
--- a/mlprec/impl/mld_d_bld_mlhier_aggsize.f90
+++ b/mlprec/impl/mld_d_bld_mlhier_aggsize.f90
@@ -198,7 +198,6 @@ subroutine mld_d_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
     ! Now set the smoother/solver parts. 
     if (info == psb_success_) then 
       if (i ==1) then 
-        ! This is a workaround for a bug in gfortran 4.7.2
         allocate(precv(i)%sm,source=base_sm,stat=info) 
       else if (i < newsz) then 
         allocate(precv(i)%sm,source=med_sm,stat=info) 
diff --git a/mlprec/impl/mld_s_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_s_bld_mlhier_aggsize.f90
index e3c412b1..cfaed271 100644
--- a/mlprec/impl/mld_s_bld_mlhier_aggsize.f90
+++ b/mlprec/impl/mld_s_bld_mlhier_aggsize.f90
@@ -198,7 +198,6 @@ subroutine mld_s_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
     ! Now set the smoother/solver parts. 
     if (info == psb_success_) then 
       if (i ==1) then 
-        ! This is a workaround for a bug in gfortran 4.7.2
         allocate(precv(i)%sm,source=base_sm,stat=info) 
       else if (i < newsz) then 
         allocate(precv(i)%sm,source=med_sm,stat=info) 
diff --git a/mlprec/impl/mld_z_bld_mlhier_aggsize.f90 b/mlprec/impl/mld_z_bld_mlhier_aggsize.f90
index 4ca37459..ba40b7db 100644
--- a/mlprec/impl/mld_z_bld_mlhier_aggsize.f90
+++ b/mlprec/impl/mld_z_bld_mlhier_aggsize.f90
@@ -198,7 +198,6 @@ subroutine mld_z_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,inf
     ! Now set the smoother/solver parts. 
     if (info == psb_success_) then 
       if (i ==1) then 
-        ! This is a workaround for a bug in gfortran 4.7.2
         allocate(precv(i)%sm,source=base_sm,stat=info) 
       else if (i < newsz) then 
         allocate(precv(i)%sm,source=med_sm,stat=info)