[FLASH-USERS] Segmentation fault due to POINTER_INTENT_OUT

[Yingchao Lu]

Hi All,

Using ftn compiler on cori, segmentation fault is encountered and
backtracked to the subroutine in hy_memReleaseBlkPtr.F90.

Line 79 to Line 99
subroutine hy_memReleaseBlk5Ptr(blockId, data5Ptr, gridDataStruct)

#include "FortranLangFeatures.fh"

  implicit none

  integer,intent(in) :: blockId
  real, POINTER_INTENT_OUT :: data5Ptr(:,:,:,:,:)
  integer,optional, intent(in) :: gridDataStruct

  integer :: gds

  if(present(gridDataStruct)) then
     gds = gridDataStruct
  else
     gds = CENTER
  end if

  nullify(data5Ptr)

end subroutine hy_memReleaseBlk5Ptr

I solved it by using -DPOINTER_INTENT_OUT=pointer. Does this cause problems
for any other part of the code?

Thanks,
Yingchao
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://flash.rochester.edu/pipermail/flash-users/attachments/20171109/fa4ab10d/attachment.htm>