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