diff --git a/samples/advanced/fileread/amg_cf_sample.f90 b/samples/advanced/fileread/amg_cf_sample.f90
index e18079ae..b1238043 100644
--- a/samples/advanced/fileread/amg_cf_sample.f90
+++ b/samples/advanced/fileread/amg_cf_sample.f90
@@ -586,7 +586,7 @@ program amg_cf_sample
   call psb_gefree(b_col,desc_a,info)
   call psb_gefree(x_col,desc_a,info)
   call psb_gefree(r_col,desc_a,info)
-  call psb_gefree(ref_col,desc_a,info)
+  if (have_ref) call psb_gefree(ref_col,desc_a,info)
   call psb_spfree(a, desc_a,info)
   call prec%free(info)
   call psb_cdfree(desc_a,info)
diff --git a/samples/advanced/fileread/amg_df_sample.f90 b/samples/advanced/fileread/amg_df_sample.f90
index 8c29eff8..a5dd71cb 100644
--- a/samples/advanced/fileread/amg_df_sample.f90
+++ b/samples/advanced/fileread/amg_df_sample.f90
@@ -586,7 +586,7 @@ program amg_df_sample
   call psb_gefree(b_col,desc_a,info)
   call psb_gefree(x_col,desc_a,info)
   call psb_gefree(r_col,desc_a,info)
-  call psb_gefree(ref_col,desc_a,info)
+  if (have_ref) call psb_gefree(ref_col,desc_a,info)
   call psb_spfree(a, desc_a,info)
   call prec%free(info)
   call psb_cdfree(desc_a,info)
diff --git a/samples/advanced/fileread/amg_sf_sample.f90 b/samples/advanced/fileread/amg_sf_sample.f90
index e195d4ff..f9327cb8 100644
--- a/samples/advanced/fileread/amg_sf_sample.f90
+++ b/samples/advanced/fileread/amg_sf_sample.f90
@@ -586,7 +586,7 @@ program amg_sf_sample
   call psb_gefree(b_col,desc_a,info)
   call psb_gefree(x_col,desc_a,info)
   call psb_gefree(r_col,desc_a,info)
-  call psb_gefree(ref_col,desc_a,info)
+  if (have_ref) call psb_gefree(ref_col,desc_a,info)
   call psb_spfree(a, desc_a,info)
   call prec%free(info)
   call psb_cdfree(desc_a,info)
diff --git a/samples/advanced/fileread/amg_zf_sample.f90 b/samples/advanced/fileread/amg_zf_sample.f90
index 6d7e6f9c..5d72ca79 100644
--- a/samples/advanced/fileread/amg_zf_sample.f90
+++ b/samples/advanced/fileread/amg_zf_sample.f90
@@ -586,7 +586,7 @@ program amg_zf_sample
   call psb_gefree(b_col,desc_a,info)
   call psb_gefree(x_col,desc_a,info)
   call psb_gefree(r_col,desc_a,info)
-  call psb_gefree(ref_col,desc_a,info)
+  if (have_ref) call psb_gefree(ref_col,desc_a,info)
   call psb_spfree(a, desc_a,info)
   call prec%free(info)
   call psb_cdfree(desc_a,info)