From 6c02ac0f0b05ea3cc16e0fde66e23c9a0de14246 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 27 Jun 2024 12:07:48 +0200
Subject: [PATCH] Separated gpu and gpu_arch

---
 src/gpu/gpu_module.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gpu/gpu_module.F90 b/src/gpu/gpu_module.F90
index f35ebc97..43754454 100644
--- a/src/gpu/gpu_module.F90
+++ b/src/gpu/gpu_module.F90
@@ -107,7 +107,7 @@ module gpu
       double precision, pointer, intent(inout) :: ptr
       type(c_ptr) :: cptr
       cptr = c_loc(ptr)
-      call gpu_deallocate(cptr)
+      call gpu_deallocate_c(cptr)
       NULLIFY(ptr)
     end subroutine