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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
! 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
|
