URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do run }
|
! { dg-do run }
|
! Tests the fix for PR27269 and PR27xxx.
|
! Tests the fix for PR27269 and PR27xxx.
|
! The former caused a segfault in trying to process
|
! The former caused a segfault in trying to process
|
! module b, with an unused equivalence in a. The latter
|
! module b, with an unused equivalence in a. The latter
|
! produced an assembler error due to multiple declarations
|
! produced an assembler error due to multiple declarations
|
! for a module equivalence, when one of the variables was
|
! for a module equivalence, when one of the variables was
|
! initialized, as M in module a.
|
! initialized, as M in module a.
|
!
|
!
|
module a
|
module a
|
integer, parameter :: dp = selected_real_kind (10)
|
integer, parameter :: dp = selected_real_kind (10)
|
real(dp) :: reM, M = 1.77d0
|
real(dp) :: reM, M = 1.77d0
|
equivalence (M, reM)
|
equivalence (M, reM)
|
end module a
|
end module a
|
|
|
module b
|
module b
|
use a, only : dp
|
use a, only : dp
|
end module b
|
end module b
|
|
|
use a
|
use a
|
use b
|
use b
|
if (reM .ne. 1.77d0) call abort ()
|
if (reM .ne. 1.77d0) call abort ()
|
reM = 0.57d1
|
reM = 0.57d1
|
if (M .ne. 0.57d1) call abort ()
|
if (M .ne. 0.57d1) call abort ()
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.