Skip to content

Commit 24577d1

Browse files
LKedwardawvwgk
andauthored
Update example_packages/cpp_files/src/cpp_files.f90
Co-authored-by: Sebastian Ehlert <[email protected]>
1 parent e6c8f31 commit 24577d1

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

example_packages/cpp_files/src/cpp_files.f90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,8 +7,9 @@ module cpp_files
77

88
interface
99
integer function intvec_maxval(array, n) bind(C, name = "intvec_maxval")
10-
integer, intent(in) :: array(*)
11-
integer, intent(in), value :: n
10+
import :: c_int, c_size_t
11+
integer(c_int), intent(in) :: array(*)
12+
integer(c_size_t), intent(in), value :: n
1213
end function intvec_maxval
1314
end interface
1415
end module cpp_files

0 commit comments

Comments
 (0)