Workaround strange Intel behaviour

6 years ago · d58729cfe8
parent 86ba1625b0
commit d58729cfe8
1 changed files with 8 additions and 5 deletions
--- 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