Standard-conforming interoperability with C. (#113)

Thanks Asitav Mishra for unvieling this issue!
CaNS-World · Mar 8, 2024 · 99b706e · 99b706e
1 parent 0d8792d
commit 99b706e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fft.f90 b/src/fft.f90
@@ -5,7 +5,7 @@
 !
 ! -
 module mod_fft
-  use, intrinsic :: iso_c_binding , only: C_INT
+  use, intrinsic :: iso_c_binding, only: C_INT,c_intptr_t
   use mod_common_mpi, only: ierr
   use mod_fftw_param
   use mod_types
@@ -47,7 +47,7 @@ subroutine fftini(ng,n_x,n_y,bcxy,c_or_f,arrplan,normfft)
     integer :: ix,iy
 #if defined(_OPENACC)
     integer :: istat,batch
-    integer(int_ptr_kind()) :: wsize,max_wsize
+    integer(c_intptr_t) :: wsize,max_wsize
 #endif
 #if defined(_SINGLE_PRECISION)
     !$ call sfftw_init_threads(ierr)