3 ! PR 55352: [4.7/4.8 Regression] Erroneous gfortran warning of unused module variable when variable is only used in namelist
5 ! Contributed by <AstroFloyd@gmail.com>
19 subroutine write_data()
22 namelist /write_data_list/ a
23 open(unit=10,form='formatted',status='replace',action='write',file='test.dat')
24 write(10, nml=write_data_list)
26 end subroutine write_data
28 ! { dg-final { cleanup-modules "data" } }