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 24577d1 commit 0235f3fCopy full SHA for 0235f3f
example_packages/cpp_files/test/check.f90
@@ -1,11 +1,12 @@
1
program check
2
+ use iso_c_binding, only: c_size_t
3
use cpp_files
4
implicit none
5
6
integer :: i, max_element
7
integer, parameter :: array(*) = [(i,i=-50,10)]
8
- max_element = intvec_maxval(array,size(array,1))
9
+ max_element = intvec_maxval(array,size(array,1,c_size_t))
10
11
if (max_element == maxval(array)) then
12
write(*,*) ' PASSED: Max element is ',max_element
0 commit comments