flang/test/Semantics/symbol26.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 ! Regression test for https://github.com/llvm/llvm-project/issues/62598
   3 ! Ensure that implicitly typed names in module NAMELIST groups receive
   4 ! the module's default accessibility attribute.
   5 !DEF: /m Module
   6 module m
   7  !DEF: /m/a PUBLIC Namelist
   8  !DEF: /m/j PUBLIC (Implicit, InNamelist) ObjectEntity INTEGER(4)
   9  namelist/a/j
  10 end module m
  11 !DEF: /main MainProgram
  12 program main
  13  !DEF: /main/j (Implicit) ObjectEntity INTEGER(4)
  14  j = 1
  15 contains
  16  !DEF: /main/inner (Subroutine) Subprogram
  17  subroutine inner
  18   !REF: /m
  19   use :: m
  20   !DEF: /main/inner/j (Implicit, InNamelist) Use INTEGER(4)
  21   j = 2
  22  end subroutine
  23 end program