Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
73be7d47
Commit
73be7d47
authored
Dec 19, 2019
by
Sergey Kosukhin
Browse files
Fix interface declaration for C function free() in the F2003 interface.
parent
e022e5ac
Changes
2
Show whitespace changes
Inline
Side-by-side
interfaces/f2003/bindGen.rb
View file @
73be7d47
...
...
@@ -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
'
...
...
src/mo_cdi.f90
View file @
73be7d47
! >>> 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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment