transfer1.f90 « execute « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/execute/transfer1.f90

blob: 855fe9df17afe9fc18162063227e14449afc4655 (plain)

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