Workaround strange Intel behaviour

scr-persistent-collective
Salvatore Filippone 6 years ago
parent 86ba1625b0
commit d58729cfe8

@ -413,12 +413,15 @@ contains
end subroutine build_mtpart 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 implicit none
integer(psb_ipk_) :: info integer(psb_ipk_), intent(out) :: iret
deallocate(graph_vect,stat=info) deallocate(graph_vect,stat=iret)
return return
end subroutine free_part end subroutine free_part

Loading…
Cancel
Save