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