6 ! Seems to be regarded as valid, even if it is doubtful
13 interface sql_set_env_attr
14 function sql_set_env_attr_int( input_handle
,attribute
,value
,length
) &
15 result(res
) bind(C
,name
="SQLSetEnvAttr")
16 use, intrinsic :: iso_c_binding
18 type(c_ptr
), value
:: input_handle
19 integer(c_int
), value
:: attribute
20 integer(c_int
), value
:: value
! <<<< HERE: int passed by value (int with ptr address)
21 integer(c_int
), value
:: length
22 integer(c_short
) :: res
24 function sql_set_env_attr_ptr( input_handle
,attribute
,value
,length
) &
25 result(res
) bind(C
,name
="SQLSetEnvAttr")
26 use, intrinsic :: iso_c_binding
28 type(c_ptr
), value
:: input_handle
29 integer(c_int
), value
:: attribute
30 type(c_ptr
), value
:: value
! <<< HERE: "void *" (pointer address)
31 integer(c_int
), value
:: length
32 integer(c_short
) :: res
37 module graph_partitions
38 use,intrinsic :: iso_c_binding
41 subroutine cfunc1 (num
, array
) bind(c
, name
="Cfun")
43 integer(c_int
),value
:: num
44 integer(c_int
) :: array(*) ! <<< HERE: int[]
47 subroutine cfunf2 (num
, array
) bind(c
, name
="Cfun")
48 import
:: c_int
, c_ptr
49 integer(c_int
),value
:: num
50 type(c_ptr
),value
:: array
! <<< HERE: void*
53 end module graph_partitions
57 integer(c_int
) :: a(100)
60 call Cfun (2, C_NULL_PTR
)