gcc/testsuite/gfortran.dg/global_vars_c_init.f90

   1 ! { dg-do run }
   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
   5   implicit none
   6
   7   integer(c_int), bind(c, name='i') :: I
   8
   9 contains
  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
  16 end module global_vars_c_init
  17
  18 ! { dg-final { cleanup-modules "global_vars_c_init" } }