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
|
! RUN: %python %S/test_errors.py %s %flang_fc1
recursive subroutine sub(dp, dpp)
procedure(inner) dp
procedure(inner), pointer :: dpp
procedure(inner) ext
procedure(sub), pointer :: p1 => sub ! ok
procedure(inner), pointer :: p2 => ext ! ok
!ERROR: Procedure pointer 'p3' initializer 'inner' is neither an external nor a module procedure
procedure(inner), pointer :: p3 => inner
!ERROR: Procedure pointer 'p4' initializer 'dp' is neither an external nor a module procedure
procedure(inner), pointer :: p4 => dp
!ERROR: Procedure pointer 'p5' initializer 'dpp' is neither an external nor a module procedure
procedure(inner), pointer :: p5 => dpp
generic :: generic => ext
!ERROR: 'generic' must be an abstract interface or a procedure with an explicit interface
procedure(generic), pointer :: p6 ! => generic
contains
subroutine inner
end
end
recursive function fun() result(res)
procedure(fun), pointer :: p1 => fun ! ok
!ERROR: Procedure pointer 'p2' initializer 'inner' is neither an external nor a module procedure
procedure(inner), pointer :: p2 => inner
res = 0.
contains
function inner()
inner = 0.
end
end
module m
procedure(msub), pointer :: ps1 => msub ! ok
procedure(mfun), pointer :: pf1 => mfun ! ok
contains
recursive subroutine msub
procedure(msub), pointer :: ps2 => msub ! ok
!ERROR: Procedure pointer 'ps3' initializer 'inner' is neither an external nor a module procedure
procedure(inner), pointer :: ps3 => inner
contains
subroutine inner
end
end
recursive function mfun() result(res)
procedure(mfun), pointer :: pf2 => mfun ! ok
!ERROR: Procedure pointer 'pf3' initializer 'inner' is neither an external nor a module procedure
procedure(inner), pointer :: pf3 => inner
res = 0.
contains
function inner()
inner = 0.
end
end
end
|
