Commit 73be7d47 authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Fix interface declaration for C function free() in the F2003 interface.

parent e022e5ac
...@@ -605,7 +605,7 @@ $verbatimDeclarations = ' ...@@ -605,7 +605,7 @@ $verbatimDeclarations = '
subroutine lib_free(pointer) bind(c, name = "free") subroutine lib_free(pointer) bind(c, name = "free")
import c_ptr import c_ptr
type(c_ptr), value :: pointer type(c_ptr), value, intent(in) :: pointer
end subroutine lib_free end subroutine lib_free
end interface end interface
' '
......
! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<< ! >>> 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 module mo_cdi
use iso_c_binding use iso_c_binding
...@@ -18,7 +18,7 @@ module mo_cdi ...@@ -18,7 +18,7 @@ module mo_cdi
subroutine lib_free(pointer) bind(c, name = "free") subroutine lib_free(pointer) bind(c, name = "free")
import c_ptr import c_ptr
type(c_ptr), value :: pointer type(c_ptr), value, intent(in) :: pointer
end subroutine lib_free end subroutine lib_free
end interface end interface
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment