Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
common_3.f90
blob: 818738e45d377aa9cf630b70898ab9226e2dde6f [
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