! { dg-do compile }
!
! PR 55352: [4.7/4.8 Regression] Erroneous gfortran warning of unused module variable when variable is only used in namelist
!
! Contributed by <AstroFloyd@gmail.com>

module data
  implicit none
  integer :: a
end module data

program test
  use data, only: a
  implicit none
  a = 1
  call write_data()
end program test

subroutine write_data()
  use data, only: a
  implicit none
  namelist /write_data_list/ a
  open(unit=10,form='formatted',status='replace',action='write',file='test.dat')
  write(10, nml=write_data_list)
  close(10)
end subroutine write_data