[Bug fortran/43605] [4.4/4.5 Regression] wrong results with ftell

[manfred99 at gmx dot ch]

------- Comment #17 from manfred99 at gmx dot ch  2010-04-01 20:35 -------
I will test this new patch, thanks.
Meanwhile, I found that the following works, too:

size_t
PREFIX(ftell) (int * unit)
{
  gfc_unit * u = find_unit (*unit);
  gfc_offset ret;
  if (u == NULL)
    return ((size_t) -1);
  ret = stell (u->s) - (u->fbuf->act - u->fbuf->pos);
  unlock_unit (u);
  return ret;
}


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43605