From d58729cfe8a53a0b0b7a1dd9abb5648857ff7ffb Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 7 Feb 2019 09:20:43 +0000
Subject: [PATCH] Workaround strange Intel behaviour

---
 util/psb_metispart_mod.F90 | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

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