OSDN Git Service

2006-10-30 Andrew Pinski <pinskia@gmail.com>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / transfer1.f90
1 program chop
2   integer ix, iy
3   real x, y
4   x = 1.
5   y = x
6   ix = transfer(x,ix)
7   iy = transfer(y,iy)
8   print '(2z20.8)', ix, iy
9   if (ix /= iy) call abort
10 end program chop