File: 088_module_var.f90

package info (click to toggle)
doxygen 1.15.0%2Bds1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 25,384 kB
  • sloc: cpp: 223,248; lex: 45,536; python: 32,394; ansic: 26,761; xml: 16,962; javascript: 8,627; yacc: 582; f90: 455; php: 427; perl: 384; makefile: 201; sh: 24; objc: 14; cs: 5; java: 1
file content (33 lines) | stat: -rw-r--r-- 437 bytes parent folder | download | duplicates (3) 
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
 
!// objective: test visibility of variables in modules
!// check: namespacem1.xml
!// check: namespacem2.xml
!// config: OPTIMIZE_FOR_FORTRAN=YES

module M1
  implicit none
  private

  public :: V3

  integer :: V1
  public :: V1

  integer, public :: V2
  integer :: V3

end module M1

module M2
  implicit none

  private :: V1
  integer :: V1

  integer :: V2

  integer, private :: V3

  integer :: V4
  public :: V4

end module M2