1! RUN: %S/test_errors.sh %s %t %f18
2! Test for checking namelist constraints, C8103-C8105
3
4module dup
5  integer dupName
6  integer uniqueName
7end module dup
8
9subroutine C8103a(x)
10  use dup, only: uniqueName, dupName
11  integer :: x
12  !ERROR: 'dupname' is already declared in this scoping unit
13  namelist /dupName/ x, x
14end subroutine C8103a
15
16subroutine C8103b(y)
17  use dup, only: uniqueName
18  integer :: y
19  namelist /dupName/ y, y
20end subroutine C8103b
21
22subroutine C8104a(ivar, jvar)
23  integer :: ivar(10,8)
24  integer :: jvar(*)
25  NAMELIST /NLIST/ ivar
26  !ERROR: A namelist group object 'jvar' must not be assumed-size
27  NAMELIST /NLIST/ jvar
28end subroutine C8104a
29
30subroutine C8104b(ivar, jvar)
31  integer, dimension(*) :: jvar
32  !ERROR: A namelist group object 'jvar' must not be assumed-size
33  NAMELIST /NLIST/ ivar, jvar
34end subroutine C8104b
35
36subroutine C8104c(jvar)
37  integer :: jvar(10, 3:*)
38  !ERROR: A namelist group object 'jvar' must not be assumed-size
39  NAMELIST /NLIST/ jvar
40end subroutine C8104c
41
42module C8105
43  integer, private :: x
44  public :: NLIST
45  !ERROR: A PRIVATE namelist group object 'x' must not be in a PUBLIC namelist
46  NAMELIST /NLIST/ x
47  !ERROR: A PRIVATE namelist group object 'x' must not be in a PUBLIC namelist
48  NAMELIST /NLIST2/ x
49  public :: NLIST2
50end module C8105
51