3 ! { dg-require-visibility "" }
4 ! Tests the fix for PR24207 and the problems associated
5 ! with the fix for PR21986. In two cases, use associated
6 ! public symbols were taking on the default private access
7 ! attribute of the local namespace. In the third, a private
8 ! symbol was not available to a namelist in contained
9 ! procedure in the same module.
11 ! Based on the example in PR24207.
27 subroutine d (arg_t
) ! This would cause an error
28 type (mytype
) :: arg_t
29 namelist /e
/ b
, x
! .... as would this.