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