We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e6c8f31 commit 24577d1Copy full SHA for 24577d1
example_packages/cpp_files/src/cpp_files.f90
@@ -7,8 +7,9 @@ module cpp_files
7
8
interface
9
integer function intvec_maxval(array, n) bind(C, name = "intvec_maxval")
10
- integer, intent(in) :: array(*)
11
- integer, intent(in), value :: n
+ import :: c_int, c_size_t
+ integer(c_int), intent(in) :: array(*)
12
+ integer(c_size_t), intent(in), value :: n
13
end function intvec_maxval
14
end interface
15
end module cpp_files
0 commit comments