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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [module_commons_2.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 PR35474, in which the PRIVATE statement would
3
! cause the error Internal Error at (1): free_pi_tree(): Unresolved fixup
4
! This arose because the symbol for 'i' emanating from the COMMON was
5
! not being fixed-up as the EQUIVALENCE was built.
6
!
7
! Contributed by FX Coudert 
8
!
9
module h5global
10
  integer i
11
  integer j
12
  common /c/ i
13
  equivalence (i, j)
14
  private
15
end module h5global
16
 
17
program bug
18
  use h5global
19
end
20
 
21
! { dg-final { cleanup-modules "h5global" } }

powered by: WebSVN 2.1.0

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