File: pluto-type.patch

package info (click to toggle)
atlas-ecmwf 0.44.1-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 17,544 kB
  • sloc: cpp: 146,712; f90: 17,676; sh: 1,196; python: 379; makefile: 65
file content (15 lines) | stat: -rw-r--r-- 517 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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)