Introduce a size member function to struct stream.

[pf3gnuchains/gcc-fork.git] / libgfortran / io / file_pos.c

diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index 2caf601..c8ecc3a 100644 (file)
--- a/libgfortran/io/file_pos.c
+++ b/libgfortran/io/file_pos.c
@@ -408,7 +408,7 @@ st_rewind (st_parameter_filepos *fpp)
            generate_error (&fpp->common, LIBERROR_OS, NULL);
 
          /* Set this for compatibilty with g77 for /dev/null.  */
-         if (file_length (u->s) == 0)
+         if (ssize (u->s) == 0)
            u->endfile = AT_ENDFILE;
          else
            {