Array too small?

[pawosm-arm]

codesign-kernels/mmf-mpdata-tracer/advect_scalar2D_pushncols_openacc.F90

Line 126 in e994a3b

if (k == 1) www(sl,i,j,nz) = 0.

real(rp) :: www (nslices,-1:nxp2,1,nz) where nxp2 is nx + 2 while nxp3 is nx + 3.

if (k == 1) www(sl,i,j,nz) = 0. where do i=-1,nxp3.

IMO the www array is too small, it will fail randomly, likely it will not fail when compiled with gfortran, but this is only matter of luck, and well written programs should not rely on luck.