24 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Regression test for https://github.com/llvm/llvm-project/issues/625983! Ensure that implicitly typed names in module NAMELIST groups receive4! the module's default accessibility attribute.5!DEF: /m Module6module m7 !DEF: /m/a PUBLIC Namelist8 !DEF: /m/j PUBLIC (Implicit, InNamelist) ObjectEntity INTEGER(4)9 namelist/a/j10end module m11!DEF: /MAIN MainProgram12program MAIN13 !DEF: /MAIN/j (Implicit) ObjectEntity INTEGER(4)14 j = 115contains16 !DEF: /MAIN/inner (Subroutine) Subprogram17 subroutine inner18 !REF: /m19 use :: m20 !DEF: /MAIN/inner/j (Implicit, InNamelist) Use INTEGER(4)21 j = 222 end subroutine23end program24