Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
common_equivalence_3.f
blob: 6acd46aa3527572e52f6f9e36aaa76ed295a3aac [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
18870
!
program main
equivalence
(
a
,
c
)
equivalence
(
b
,
c
)
common
/
foo
/
a
common
/
bar
/
b
!
{
dg
-
error
"equivalenced to another COMMON"
}
c
=
3.
print
*,
a
print
*,
b
end