Description: Build fix needed for gfortran build
Author: Allastair McKinstry <mckinstry@debian.org>
Last-Updated: 2025-08-26
Forwarded: no

--- a/pluto/src/pluto_f/pluto_module.F90
+++ b/pluto/src/pluto_f/pluto_module.F90
@@ -659,6 +659,7 @@
     real(c_double), pointer, intent(inout) :: array(:,:,:,:)
     integer(c_int), intent(in) :: shape(:)
     integer(c_size_t) :: bytes
+    type(c_ptr) :: mem
     bytes = product(shape) * 8
     if (bytes > 0) then
         call this%memory_resource%allocate(mem, bytes)