Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr41922.f90
blob: 12d353353bc3af4d9be360da703a5a2d85bca3e7 [
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