Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr41922.f90
blob: cbbfa6f15f59576982cc9e8327492dba3e98749f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
-
std
=
gnu
}
Subroutine
RestoreR8Run
()
Implicit
NONE
Integer
ISTORE
Real
XSTORE
character CSTORE
(
8
)
data cstore
/
8
*
' '
/
data istore
/
0
/
EQUIVALENCE
(
CSTORE
(
1
),
XSTORE
,
ISTORE
)
!
{
dg
-
error
"Overlapping unequal"
}
end