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