repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
c++: mutable temps in rodata [PR116369]
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
module_equivalence_6.f90
blob
67a52358e24974b302857a2632c71b4a21215dc1
1
! { dg-do compile }
2
!
3
! Fixes PR38171 a regression caused by the fix for PR37706.
4
!
5
! Contributed by Scot Breitenfeld <brtnfld@hdfgroup.org>
6
!
7
MODULE
H5GLOBAL
8
IMPLICIT NONE
9
INTEGER
::
H5P_flags
10
INTEGER
::
H5P_DEFAULT_F
11
EQUIVALENCE
(
H5P_flags
,
H5P_DEFAULT_F
)
12
END MODULE
H5GLOBAL
13
MODULE
HDF5
14
USE
H5GLOBAL
15
END MODULE
HDF5
16
PROGRAM
fortranlibtest
17
USE
HDF5
18
IMPLICIT NONE
19
INTEGER
::
ii
20
ii
=
H5P_DEFAULT_F
21
END PROGRAM
fortranlibtest