mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
17 lines
397 B
Fortran
17 lines
397 B
Fortran
! { dg-do run }
|
|
! { dg-additional-sources global_vars_c_init_driver.c }
|
|
module global_vars_c_init
|
|
use, intrinsic :: iso_c_binding, only: c_int
|
|
implicit none
|
|
|
|
integer(c_int), bind(c, name='i') :: I
|
|
|
|
contains
|
|
subroutine test_globals() bind(c)
|
|
! the value of I is initialized above
|
|
if(I .ne. 2) then
|
|
STOP 1
|
|
endif
|
|
end subroutine test_globals
|
|
end module global_vars_c_init
|