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
|
!RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
!PORTABILITY: An interoperable procedure should have an interface
subroutine subr1(e) bind(c)
external e
end
subroutine subr2(p) bind(c)
!PORTABILITY: An interoperable procedure should have an interface
procedure() :: p
end
subroutine subr3(p) bind(c)
!PORTABILITY: An interoperable procedure should have an interface
procedure(real) :: p
end
subroutine subr4(p) bind(c)
interface
!PORTABILITY: A dummy procedure of an interoperable procedure should be BIND(C)
subroutine p(n)
integer, intent(in) :: n
end
end interface
end
subroutine subr5(p) bind(c)
interface
!WARNING: A dummy procedure of an interoperable procedure should be BIND(C)
subroutine p(c)
character(*), intent(in) :: c
end
end interface
end
subroutine subr6(p) bind(c)
interface
function p()
!ERROR: Interoperable function result must be scalar
real p(1)
end
end interface
end
subroutine subr7(p) bind(c)
interface
!ERROR: Interoperable character function result must have length one
character(*) function p()
end
end interface
end
subroutine subr8(p) bind(c)
interface
!WARNING: A dummy procedure of an interoperable procedure should be BIND(C)
subroutine p(n)
integer, intent(in), value :: n
end
end interface
end
subroutine subr9(p) bind(c)
!ERROR: An interface name with the BIND attribute must appear if the BIND attribute appears in a procedure declaration
procedure(q), bind(c), pointer :: p
interface
function q()
real q(1)
end
end interface
end
|
