2 ! { dg-additional-sources c_loc_driver.c }
7 subroutine test0() bind(c)
8 use, intrinsic :: iso_c_binding
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)
24 ! { dg-final { cleanup-modules "c_loc_test" } }