diff --git a/interfaces/f2003/bindGen.rb b/interfaces/f2003/bindGen.rb index deecd4ea4e48ba22c80f3fac6bdb844a28505fb1..695fd75c77e8289088043fd56af86bc4958d9ad8 100755 --- a/interfaces/f2003/bindGen.rb +++ b/interfaces/f2003/bindGen.rb @@ -585,7 +585,7 @@ $verbatimDeclarations = ' subroutine lib_free(pointer) bind(c, name = "free") import c_ptr - type(c_ptr), value :: pointer + type(c_ptr), value, intent(in) :: pointer end subroutine lib_free end interface ' diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90 index 35c58188ab5a37a81f66707021675bce47d3dbec..ce8e72cb73d7fa3093f6746f56364bfdc884da5b 100644 --- a/src/mo_cdi.f90 +++ b/src/mo_cdi.f90 @@ -1,6 +1,6 @@ ! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<< ! -! Generated by "../../../interfaces/f2003/bindGen.rb" from input file "../../../src/cdi.h". +! Generated by "../interfaces/f2003/bindGen.rb" from input file "../src/cdi.h". module mo_cdi use iso_c_binding @@ -18,7 +18,7 @@ module mo_cdi subroutine lib_free(pointer) bind(c, name = "free") import c_ptr - type(c_ptr), value :: pointer + type(c_ptr), value, intent(in) :: pointer end subroutine lib_free end interface