From 99b706eb2efb0c2fe6004ed14b4a576d6820b4b9 Mon Sep 17 00:00:00 2001
From: Pedro Costa <p.simoes.costa@gmail.com>
Date: Fri, 8 Mar 2024 23:25:45 +0100
Subject: [PATCH] Standard-conforming interoperability with C. (#113)

Thanks Asitav Mishra for unvieling this issue!
---
 src/fft.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fft.f90 b/src/fft.f90
index 6c843f7c..9f2bde9f 100644
--- 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)