Sign in
llvm
/
llvm-archive
/
b74e25f9042d5657e8f400dd820eba426827f1dd
/
.
/
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