repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
fix pr/45972
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr32535.f90
blob
43ea48e04cb279d8ab97259115024dc486b98d8f
1
! { dg-do compile }
2
!
3
! PR32535: namelist with private items contained in sub-sub-procedure of a module rejected
4
!
5
! Contributed by Janus Weil <jaydub66@gmail.com>
6
7
module
mo
8
implicit none
9
real
,
private
::
a
,
b
,
c
10
11
contains
12
13
subroutine
sub
14
implicit none
15
namelist
/
nl1
/
a
,
b
,
c
16
17
contains
18
19
subroutine
subsub
20
implicit none
21
namelist
/
nl2
/
a
,
b
,
c
22
end subroutine
subsub
23
end subroutine
sub
24
end module
mo
25
26
! { dg-final { cleanup-modules "mo" } }