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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! Tests the fix for PR27269 and PR27xxx.
3
! The former caused a segfault in trying to process
4
! module b, with an unused equivalence in a. The latter
5
! produced an assembler error due to multiple declarations
6
! for a module equivalence, when one of the variables was
7
! initialized, as M in module a.
8
!
9
module a
10
  integer, parameter :: dp = selected_real_kind (10)
11
  real(dp) :: reM, M = 1.77d0
12
  equivalence (M, reM)
13
end module a
14
 
15
module b
16
  use a, only : dp
17
end module b
18
 
19
  use a
20
  use b
21
  if (reM .ne. 1.77d0) call abort ()
22
  reM = 0.57d1
23
  if (M .ne. 0.57d1) call abort ()
24
end
25
! { dg-final { cleanup-modules "a b" } }

powered by: WebSVN 2.1.0

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