Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/module_equivalence_2.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Tests the fix for PR27269 and PR27xxx. ! The former caused a segfault in trying to process ! module b, with an unused equivalence in a. The latter ! produced an assembler error due to multiple declarations ! for a module equivalence, when one of the variables was ! initialized, as M in module a. ! module a integer, parameter :: dp = selected_real_kind (10) real(dp) :: reM, M = 1.77d0 equivalence (M, reM) end module a module b use a, only : dp end module b use a use b if (reM .ne. 1.77d0) STOP 1 reM = 0.57d1 if (M .ne. 0.57d1) STOP 2 end