blob: 0447d5fe1504b3228872787d3fde10373558aa09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do compile }
! PR fortran/116530 - ICE with member of namelist renamed by use module
!
! Reported by philippe.wautelet at cnrs.fr
module mod_nml1
implicit none
logical :: ldiag
namelist /nam_nml1/ldiag
end module mod_nml1
module mod_interm
use mod_nml1
end module mod_interm
program ice_nml
use mod_nml1, ldiag_nml1 => ldiag
use mod_nml1, only : ldiag_only => ldiag
use mod_interm
implicit none
integer :: ilu = 10
read(unit=ilu,nml=nam_nml1)
write(unit=*,nml=nam_nml1)
print *, ldiag
print *, ldiag_nml1
print *, ldiag_only
end program ice_nml
|
