OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [use_rename_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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 
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
27
! { dg-final { cleanup-modules "common_init_conf" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.