Workaround strange Intel behaviour

This commit is contained in:
Salvatore Filippone
2019-02-07 09:20:43 +00:00
parent 86ba1625b0
commit d58729cfe8
+8 -5
View File
@@ -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