961a138237
Don't attempt to give an object a default binding label when it shows up in a declaration after it has already been given an explicit binding label in an earlier declaration. Fixes https://github.com/llvm/llvm-project/issues/106019.
83 lines
2.0 KiB
Fortran
83 lines
2.0 KiB
Fortran
! 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
|