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 = '
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
'
......
! >>> 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
......
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