1! RUN: %python %S/test_errors.py %s %flang_fc1 2! test bind(c) name conflict 3 4module m 5 6 integer :: x, y, z, w, i, j, k 7 8 !ERROR: Two entities have the same global name 'aa' 9 common /blk1/ x, /blk2/ y 10 bind(c, name="aa") :: /blk1/, /blk2/ 11 12 integer :: t 13 !ERROR: Two entities have the same global name 'bb' 14 common /blk3/ z 15 bind(c, name="bb") :: /blk3/, t 16 17 integer :: t2 18 !ERROR: Two entities have the same global name 'cc' 19 common /blk4/ w 20 bind(c, name="cc") :: t2, /blk4/ 21 22 !ERROR: The entity 'blk5' has multiple BIND names ('dd' and 'ee') 23 common /blk5/ i 24 bind(c, name="dd") :: /blk5/ 25 bind(c, name="ee") :: /blk5/ 26 27 !ERROR: Two entities have the same global name 'ff' 28 common /blk6/ j, /blk7/ k 29 bind(c, name="ff") :: /blk6/ 30 bind(c, name="ff") :: /blk7/ 31 32 !ERROR: The entity 's1' has multiple BIND names ('gg' and 'hh') 33 integer :: s1 34 bind(c, name="gg") :: s1 35 !ERROR: BIND_C attribute was already specified on 's1' 36 bind(c, name="hh") :: s1 37 38 !ERROR: Two entities have the same global name 'ii' 39 integer :: s2, s3 40 bind(c, name="ii") :: s2 41 bind(c, name="ii") :: s3 42 43 !ERROR: The entity 's4' has multiple BIND names ('ss1' and 'jj') 44 integer, bind(c, name="ss1") :: s4 45 !ERROR: BIND_C attribute was already specified on 's4' 46 bind(c, name="jj") :: s4 47 48 !ERROR: The entity 's5' has multiple BIND names ('kk' and 'ss2') 49 bind(c, name="kk") :: s5 50 !ERROR: BIND_C attribute was already specified on 's5' 51 integer, bind(c, name="ss2") :: s5 52 53 integer, bind(c, name="s6explicit") :: s6 54 dimension s6(10) ! caused spurious error 55 56end 57 58subroutine common1() 59 real :: x 60 common /com/ x 61 bind(c, name='xcom') /com/ ! no error 62end subroutine 63 64subroutine common2() 65 real :: x 66 common /com/ x 67 bind(c, name='xcom') /com/ ! no error 68end subroutine 69 70module a 71 integer, bind(c, name="int") :: i 72end module 73 74module b 75 !ERROR: Two entities have the same global name 'int' 76 integer, bind(c, name="int") :: i 77end module 78 79module c 80 bind(c, name = "AAA") a 81 integer aaa ! ensure no bogus error about multiple binding names 82end module 83