1! { dg-do run }
2! { dg-additional-sources global_vars_f90_init_driver.c }
3module global_vars_f90_init
4  use, intrinsic :: iso_c_binding, only: c_int
5  implicit none
6
7  integer(c_int), bind(c, name='i') :: I = 2
8
9contains
10  subroutine test_globals() bind(c)
11    ! the value of I is initialized above
12    if(I .ne. 2) then
13       call abort()
14    endif
15  end subroutine test_globals
16end module global_vars_f90_init
17