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