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
|
! RUN: %python %S/test_errors.py %s %flang_fc1
! Check for C1520
! If proc-language-binding-spec (bind(c)) with NAME= is specified, then
! proc-decl-list shall contain exactly one proc-decl, which shall neither have
! the POINTER attribute nor be a dummy procedure.
subroutine sub(x, y)
interface
subroutine proc() bind(c)
end
end interface
abstract interface
!ERROR: An ABSTRACT interface may not have a BIND attribute with a name
subroutine aproc1() bind(c,name="foo")
end
subroutine aproc2() bind(c) ! ok
end
end interface
!Acceptable (as an extension)
procedure(proc), bind(c, name="aaa") :: pc1, pc2
!ERROR: A procedure pointer may not have a BIND attribute with a name
procedure(proc), bind(c, name="bbb"), pointer :: pc3
!ERROR: An internal or dummy procedure may not have a BIND(C,NAME=) binding label
procedure(proc), bind(c, name="ccc") :: x
procedure(proc), bind(c) :: pc4, pc5
!ERROR: A procedure pointer may not have a BIND attribute with a name
procedure(proc), bind(c, name="pc6"), pointer :: pc6
procedure(proc), bind(c), pointer :: pc7
procedure(proc), bind(c) :: y
!WARNING: Attribute 'BIND(C)' cannot be used more than once
!ERROR: A procedure pointer may not have a BIND attribute with a name
procedure(proc), bind(c, name="pc8"), bind(c), pointer :: pc8
end
|
