Add NIOS2 support. Code from SourceyG++.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / transfer1.f90

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