gcc/testsuite/gfortran.dg/use_rename_1.f90

   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 !
   8 module common_init_conf
   9   integer, dimension(2) :: Nmoltype_phase
  10 end module common_init_conf
  11
  12 subroutine 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
  18 end subroutine read_initial_config_nml1
  19
  20 subroutine 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
  26 end subroutine read_initial_config_nml2