Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
transfer1.f90
blob: 855fe9df17afe9fc18162063227e14449afc4655 [
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
)
call abort
end
program chop