1! { dg-do compile }
2! Tests the fix for PR34854, in which the second of the two subroutines would fail
3! because the type declaration of nmoltype_phase would incorrectly conflict
4! with the type given to the module variable of the same name.
5!
6! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
7!
8module common_init_conf
9  integer, dimension(2) :: Nmoltype_phase
10end module common_init_conf
11
12subroutine read_initial_config_nml1()
13  use common_init_conf, nmoltype_phase_com => nmoltype_phase
14  use common_init_conf
15  implicit none
16  integer :: nmoltype_phase
17  namelist /confNmoltypePhase/ nmoltype_phase
18end subroutine read_initial_config_nml1
19
20subroutine read_initial_config_nml2()
21  use common_init_conf
22  use common_init_conf, nmoltype_phase_com => nmoltype_phase
23  implicit none
24  integer :: nmoltype_phase
25  namelist /confNmoltypePhase/ nmoltype_phase
26end subroutine read_initial_config_nml2
27