xref: /llvm-project/flang/test/Semantics/declarations03.f90 (revision 961a138237947daa5ccabfc87dbfbad8b47146e4)

! RUN: %python %S/test_errors.py %s %flang_fc1
! test bind(c) name conflict

module m

  integer :: x, y, z, w, i, j, k

  !ERROR: Two entities have the same global name 'aa'
  common /blk1/ x, /blk2/ y
  bind(c, name="aa") :: /blk1/, /blk2/

  integer :: t
  !ERROR: Two entities have the same global name 'bb'
  common /blk3/ z
  bind(c, name="bb") :: /blk3/, t

  integer :: t2
  !ERROR: Two entities have the same global name 'cc'
  common /blk4/ w
  bind(c, name="cc") :: t2, /blk4/

  !ERROR: The entity 'blk5' has multiple BIND names ('dd' and 'ee')
  common /blk5/ i
  bind(c, name="dd") :: /blk5/
  bind(c, name="ee") :: /blk5/

  !ERROR: Two entities have the same global name 'ff'
  common /blk6/ j, /blk7/ k
  bind(c, name="ff") :: /blk6/
  bind(c, name="ff") :: /blk7/

  !ERROR: The entity 's1' has multiple BIND names ('gg' and 'hh')
  integer :: s1
  bind(c, name="gg") :: s1
  !ERROR: BIND_C attribute was already specified on 's1'
  bind(c, name="hh") :: s1

  !ERROR: Two entities have the same global name 'ii'
  integer :: s2, s3
  bind(c, name="ii") :: s2
  bind(c, name="ii") :: s3

  !ERROR: The entity 's4' has multiple BIND names ('ss1' and 'jj')
  integer, bind(c, name="ss1") :: s4
  !ERROR: BIND_C attribute was already specified on 's4'
  bind(c, name="jj") :: s4

  !ERROR: The entity 's5' has multiple BIND names ('kk' and 'ss2')
  bind(c, name="kk") :: s5
  !ERROR: BIND_C attribute was already specified on 's5'
  integer, bind(c, name="ss2") :: s5

  integer, bind(c, name="s6explicit") :: s6
  dimension s6(10) ! caused spurious error

end

subroutine common1()
  real :: x
  common /com/ x
  bind(c, name='xcom') /com/ ! no error
end subroutine

subroutine common2()
  real :: x
  common /com/ x
  bind(c, name='xcom') /com/ ! no error
end subroutine

module a
  integer, bind(c, name="int") :: i
end module

module b
  !ERROR: Two entities have the same global name 'int'
  integer, bind(c, name="int") :: i
end module

module c
  bind(c, name = "AAA") a
  integer aaa ! ensure no bogus error about multiple binding names
end module