bind_c_vars.f90

来自「用于进行gcc测试」· F90 代码 · 共 41 行

! { dg-do run }
! { dg-additional-sources bind_c_vars_driver.c }
module bind_c_vars
  use, intrinsic :: iso_c_binding
  implicit none

  integer(c_int), bind(c) :: myF90Int
  real(c_float), bind(c, name="myF90Real") :: f90_real
  integer(c_int) :: c2
  integer(c_int) :: c3
  integer(c_int) :: c4
  bind(c, name="myVariable") :: c2
  bind(c) c3, c4 

  integer(c_int), bind(c, name="myF90Array3D") :: A(18, 3:7, 10)
  integer(c_int), bind(c, name="myF90Array2D") :: B(3, 2)

contains
  
  subroutine changeF90Globals() bind(c, name='changeF90Globals')
    implicit none
    ! should make it 2
    myF90Int = myF90Int + 1
    ! should make it 3.0
    f90_real = f90_real * 3.0;
    ! should make it 4
    c2 = c2 * 2;
    ! should make it 6
    c3 = c3 + 3;
    ! should make it 2
    c4 = c4 / 2;
    ! should make it 2
    A(5, 6, 3) = A(5, 6, 3) + 1
    ! should make it 3
    B(3, 2) = B(3, 2) + 1
  end subroutine changeF90Globals

end module bind_c_vars

! { dg-final { cleanup-modules "bind_c_vars" } }