diff --git a/util/psb_metispart_mod.F90 b/util/psb_metispart_mod.F90
index 3d8cad2e..1bb8a08c 100644
--- a/util/psb_metispart_mod.F90
+++ b/util/psb_metispart_mod.F90
@@ -413,12 +413,15 @@ contains
 
   end subroutine build_mtpart
 
-
-  subroutine free_part(info)
+  !
+  ! WARNING: called IRET otherwise Intel compiler complains,
+  ! methinks it's a compiler bug, will need to report. 
+  !
+  subroutine free_part(iret)
     implicit none 
-    integer(psb_ipk_) :: info
-    
-    deallocate(graph_vect,stat=info)
+    integer(psb_ipk_), intent(out) :: iret
+
+    deallocate(graph_vect,stat=iret)
     return
   end subroutine free_part