File: 088_module_var.f90

package info (click to toggle)
doxygen 1.9.8%2Bds-2.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 24,000 kB
  • sloc: cpp: 215,370; lex: 42,621; python: 32,388; ansic: 26,705; xml: 15,390; javascript: 8,352; yacc: 581; f90: 455; php: 441; perl: 378; makefile: 195; sh: 24; objc: 14; cs: 5; java: 1
file content (33 lines) | stat: -rw-r--r-- 437 bytes parent folder | download | duplicates (2) 
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