2 ! { dg-additional-sources global_vars_c_init_driver.c }
3 module global_vars_c_init
4 use, intrinsic :: iso_c_binding, only: c_int
7 integer(c_int), bind(c, name='i') :: I
10 subroutine test_globals() bind(c)
11 ! the value of I is initialized above
15 end subroutine test_globals
16 end module global_vars_c_init