namelist01.f90
1.27 KB
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
! RUN: %S/test_errors.sh %s %t %f18
! Test for checking namelist constraints, C8103-C8105
module dup
integer dupName
integer uniqueName
end module dup
subroutine C8103a(x)
use dup, only: uniqueName, dupName
integer :: x
!ERROR: 'dupname' is already declared in this scoping unit
namelist /dupName/ x, x
end subroutine C8103a
subroutine C8103b(y)
use dup, only: uniqueName
integer :: y
namelist /dupName/ y, y
end subroutine C8103b
subroutine C8104a(ivar, jvar)
integer :: ivar(10,8)
integer :: jvar(*)
NAMELIST /NLIST/ ivar
!ERROR: A namelist group object 'jvar' must not be assumed-size
NAMELIST /NLIST/ jvar
end subroutine C8104a
subroutine C8104b(ivar, jvar)
integer, dimension(*) :: jvar
!ERROR: A namelist group object 'jvar' must not be assumed-size
NAMELIST /NLIST/ ivar, jvar
end subroutine C8104b
subroutine C8104c(jvar)
integer :: jvar(10, 3:*)
!ERROR: A namelist group object 'jvar' must not be assumed-size
NAMELIST /NLIST/ jvar
end subroutine C8104c
module C8105
integer, private :: x
public :: NLIST
!ERROR: A PRIVATE namelist group object 'x' must not be in a PUBLIC namelist
NAMELIST /NLIST/ x
!ERROR: A PRIVATE namelist group object 'x' must not be in a PUBLIC namelist
NAMELIST /NLIST2/ x
public :: NLIST2
end module C8105