blob: 9afb04962d18fa6515246ffb03db424b9e3d0c59 (
plain)
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
|
! RUN: %S/test_errors.sh %s %t %f18
! Check for multiple symbols being defined with with same BIND(C) name
module m1
integer, bind(c, name="x1") :: x1
!ERROR: Two symbols have the same BIND(C) name 'x1'
integer, bind(c, name=" x1 ") :: x2
contains
!ERROR: Two symbols have the same BIND(C) name 'x3'
subroutine x3() bind(c, name="x3")
end subroutine
end module
subroutine x4() bind(c, name=" x3 ")
end subroutine
! Ensure no error in this situation
module m2
interface
subroutine x5() bind(c, name=" x5 ")
end subroutine
end interface
end module
subroutine x5() bind(c, name=" x5 ")
end subroutine
|
GitWeb
