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