Skip to content

Commit 0235f3f

Browse files
committed
Fix: int type mismatch in cpp example package.
1 parent 24577d1 commit 0235f3f

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

example_packages/cpp_files/test/check.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,12 @@
11
program check
2+
use iso_c_binding, only: c_size_t
23
use cpp_files
34
implicit none
45

56
integer :: i, max_element
67
integer, parameter :: array(*) = [(i,i=-50,10)]
78

8-
max_element = intvec_maxval(array,size(array,1))
9+
max_element = intvec_maxval(array,size(array,1,c_size_t))
910

1011
if (max_element == maxval(array)) then
1112
write(*,*) ' PASSED: Max element is ',max_element

0 commit comments

Comments
 (0)