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