Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
transfer1.f90
blob: 9779f6b8c67f7f6cb8effb3a19cb0261441b753f [
file
] [
log
] [
blame
]
program chop
integer ix
,
iy
real x
,
y
x
=
1.
y
=
x
ix
=
transfer
(
x
,
ix
)
iy
=
transfer
(
y
,
iy
)
print
'(2z20.8)'
,
ix
,
iy
if
(
ix
/=
iy
)
STOP
1
end
program chop