declare fptr contiguous, to avoid compilation error with gfortran 8.5

dalesteam · Nov 15, 2022 · 731c2ea · 731c2ea
1 parent 5f9f670
commit 731c2ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/modfftw.f90 b/src/modfftw.f90
@@ -98,7 +98,7 @@ subroutine fftwinit(p, Fp, d, xyrt, ps,pe,qs,qe)
     integer,intent(out)        :: ps,pe,qs,qe
 
     integer(kind=8)     :: sz
-    real(pois_r), pointer :: fptr(:)
+    real(pois_r), pointer,contiguous :: fptr(:)
     integer             :: embed(1), kinds(2)
     type (fftw_iodim)   :: dimij(2), dimk(1)