summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/bind_c_vars.f90
blob: e57edf09d38cb8a039552bc3ebc66631ddf3db91 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
! { 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" } }