flang/test/Semantics/namelist01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test for checking namelist constraints, C8103-C8105
   3
   4 module dup
   5   integer dupName
   6   integer uniqueName
   7 end module dup
   8
   9 subroutine 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
  14 end subroutine C8103a
  15
  16 subroutine C8103b(y)
  17   use dup, only: uniqueName
  18   integer :: y
  19   namelist /dupName/ y, y
  20 end subroutine C8103b
  21
  22 subroutine 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
  28 end subroutine C8104a
  29
  30 subroutine C8104b(ivar, jvar)
  31   integer, dimension(*) :: jvar
  32   !ERROR: A namelist group object 'jvar' must not be assumed-size
  33   NAMELIST /NLIST/ ivar, jvar
  34 end subroutine C8104b
  35
  36 subroutine C8104c(jvar)
  37   integer :: jvar(10, 3:*)
  38   !ERROR: A namelist group object 'jvar' must not be assumed-size
  39   NAMELIST /NLIST/ jvar
  40 end subroutine C8104c
  41
  42 module 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
  50 end module C8105