diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-20 14:39:00 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-20 14:39:00 +0000 |
| commit | f4e9c6767d0ea69e572b5046f87d0aacef588f84 (patch) | |
| tree | 1f0dd89e327efd48666fe5142e7c12087383968d /libgfortran/io/unix.h | |
| parent | 0895c53c41cfab6c1522b9b02ad9edb35b6724f2 (diff) | |
2010-03-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43409
* ioparm.def: Change inquire size variable to type pointer to
GFC_IO_INT type.
2010-03-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43409
* io/unix.h: Add prototype for new function to return file size.
* io/unix.c (file_size): New function.
* io/inquire.c (inquire_via_unit): Use new function.
(inquire_via_filename): Use new function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157593 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/unix.h')
| -rw-r--r-- | libgfortran/io/unix.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/io/unix.h b/libgfortran/io/unix.h index e691982e505d..e567fdfe2052 100644 --- a/libgfortran/io/unix.h +++ b/libgfortran/io/unix.h @@ -121,6 +121,9 @@ internal_proto(delete_file); extern int file_exists (const char *file, gfc_charlen_type file_len); internal_proto(file_exists); +extern GFC_IO_INT file_size (const char *file, gfc_charlen_type file_len); +internal_proto(file_size); + extern const char *inquire_sequential (const char *, int); internal_proto(inquire_sequential); |