2 ! { dg-additional-sources bind_c_vars_driver.c }
4 use, intrinsic :: iso_c_binding
7 integer(c_int), bind(c) :: myF90Int
8 real(c_float), bind(c, name="myF90Real") :: f90_real
12 bind(c, name="myVariable") :: c2
15 integer(c_int), bind(c, name="myF90Array3D") :: A(18, 3:7, 10)
16 integer(c_int), bind(c, name="myF90Array2D") :: B(3, 2)
20 subroutine changeF90Globals() bind(c, name='changeF90Globals')
23 myF90Int = myF90Int + 1
25 f90_real = f90_real * 3.0;
33 A(5, 6, 3) = A(5, 6, 3) + 1
36 end subroutine changeF90Globals
38 end module bind_c_vars