1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Check for multiple symbols being defined with with same BIND(C) name
3
4module m1
5  integer, bind(c, name="x1") :: x1
6  !ERROR: Two entities have the same BIND(C) name 'x1'
7  integer, bind(c, name=" x1 ") :: x2
8 contains
9  subroutine x3() bind(c, name="x3")
10  end subroutine
11end module
12
13!ERROR: Two entities have the same BIND(C) name 'x3'
14subroutine x4() bind(c, name=" x3 ")
15end subroutine
16
17! Ensure no error in this situation
18module m2
19 interface
20  subroutine x5() bind(c, name=" x5 ")
21  end subroutine
22 end interface
23end module
24subroutine x5() bind(c, name=" x5 ")
25end subroutine
26
27! Ensure no error in this situation
28subroutine foo() bind(c, name="x6")
29end subroutine
30subroutine foo() bind(c, name="x7")
31end subroutine
32