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
|
!// objective: test visibility of types in modules
!// check: structmymodule_1_1t1.xml
!// check: structmymodule_1_1t2.xml
!// check: structmymodule_1_1t3.xml
!// check: structmymodule_1_1t4.xml
!// config: OPTIMIZE_FOR_FORTRAN=YES
!// config: WARN_IF_UNDOCUMENTED=NO
module myModule
implicit none
private
public :: T3
type T1
integer :: publicVariable
end type T1
public :: T1
type, public :: T2
integer :: publicVariable
contains
end type
type T3
private
integer :: privateVariable
end type
type, private :: T4
integer :: publicVariable
end type
end module myModule
|
