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