Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
common_3.f90
blob: c5e40aa83b62ea29fa7d130f36e3dfc46900519f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Check
that equivalences match common block layout
.
program common_3
common
/
block
/
a
,
b
,
c
,
d
!
{
dg
-
error
"not match ordering"
}
integer a
,
b
,
c
,
d
,
n
dimension n
(
4
)
equivalence
(
a
,
n
(
1
))
equivalence
(
c
,
n
(
4
))
end
program