<div dir="ltr"><div style="font-size:12.8px">Hi All,</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Using ftn compiler on cori, segmentation fault is encountered and backtracked to the subroutine in hy_memReleaseBlkPtr.F90.</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Line 79 to Line 99</div><div style="font-size:12.8px">subroutine hy_memReleaseBlk5Ptr(blockId, data5Ptr, gridDataStruct)</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">#include "FortranLangFeatures.fh"</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">  implicit none</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">  integer,intent(in) :: blockId</div><div style="font-size:12.8px">  real, POINTER_INTENT_OUT :: data5Ptr(:,:,:,:,:)</div><div style="font-size:12.8px">  integer,optional, intent(in) :: gridDataStruct</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">  integer :: gds</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">  if(present(gridDataStruct)) then</div><div style="font-size:12.8px">     gds = gridDataStruct</div><div style="font-size:12.8px">  else</div><div style="font-size:12.8px">     gds = CENTER</div><div style="font-size:12.8px">  end if</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">  nullify(data5Ptr)</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">end subroutine hy_memReleaseBlk5Ptr</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">I solved it by using -DPOINTER_INTENT_OUT=pointer. Does this cause problems for any other part of the code?</div><div style="font-size:12.8px"><br></div><div style="font-size:12.8px">Thanks,</div><div style="font-size:12.8px">Yingchao</div></div>