2 ! { dg-additional-sources c_loc_driver.c }
7 subroutine test0() bind(c
)
8 use, intrinsic :: iso_c_binding
10 integer(c_int
), target
:: x
11 type(c_ptr
) :: my_c_ptr
13 subroutine test_address(x
, expected_value
) bind(c
)
14 use, intrinsic :: iso_c_binding
15 type(c_ptr
), value
:: x
16 integer(c_int
), value
:: expected_value
17 end subroutine test_address
21 call test_address(my_c_ptr
, 100_c_int
)