symbol10.f90
959 Bytes
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
! RUN: %S/test_symbols.sh %s %t %f18
!DEF: /m1 Module
module m1
contains
!DEF: /m1/foo_complex PUBLIC (Subroutine) Subprogram
!DEF: /m1/foo_complex/z ObjectEntity COMPLEX(4)
subroutine foo_complex (z)
!REF: /m1/foo_complex/z
complex z
end subroutine
end module
!DEF: /m2 Module
module m2
!REF: /m1
use :: m1
!DEF: /m2/foo PUBLIC (Subroutine) Generic
interface foo
!DEF: /m2/foo_int PUBLIC (Subroutine) Subprogram
module procedure :: foo_int
!DEF: /m2/foo_real EXTERNAL, PUBLIC (Subroutine) Subprogram
procedure :: foo_real
!DEF: /m2/foo_complex PUBLIC (Subroutine) Use
procedure :: foo_complex
end interface
interface
!REF: /m2/foo_real
!DEF: /m2/foo_real/r ObjectEntity REAL(4)
subroutine foo_real (r)
!REF: /m2/foo_real/r
real r
end subroutine
end interface
contains
!REF: /m2/foo_int
!DEF: /m2/foo_int/i ObjectEntity INTEGER(4)
subroutine foo_int (i)
!REF: /m2/foo_int/i
integer i
end subroutine
end module