mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
27 lines
588 B
Fortran
27 lines
588 B
Fortran
! { 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
|