gcc/testsuite/gfortran.dg/pr105847.f90

   1 ! { dg-do run }
   2 module m
   3    integer :: name_in_module = 123
   4 end module
   5
   6 program foo
   7
   8    use m, name_in_program => name_in_module
   9    namelist /nl/ name_in_program
  10
  11    if (name_in_program /= 123) stop 1
  12
  13    open(unit=10, file='fort.10', status='replace')
  14    write(10,nl)
  15    close(10)
  16
  17    name_in_program = 42
  18    if (name_in_program /= 42) stop 2
  19
  20    open(unit=10, file='fort.10', status='old')
  21    read(10,nl)
  22    if (name_in_program /= 123) stop 3
  23    close(10)
  24
  25    call bar
  26
  27    contains
  28
  29       subroutine bar
  30          integer name_in_program
  31          namelist /nl/ name_in_program
  32          name_in_program = 0
  33          open(unit=10, file='fort.10', status='old')
  34          read(10,nl)
  35          if (name_in_program /= 123) stop 4
  36          close(10,status='delete')
  37       end subroutine bar
  38
  39 end