diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-20 14:39:00 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-20 14:39:00 +0000 |
| commit | 41c3cddc6b5d279f56f02709a92f55d61e4675c7 (patch) | |
| tree | 1f0dd89e327efd48666fe5142e7c12087383968d /gcc | |
| parent | d491d2af314a455227666dd245dc27ea0dfdea8e (diff) | |
| download | gcc-41c3cddc6b5d279f56f02709a92f55d61e4675c7.zip gcc-41c3cddc6b5d279f56f02709a92f55d61e4675c7.tar.gz gcc-41c3cddc6b5d279f56f02709a92f55d61e4675c7.tar.bz2 | |
re PR fortran/43409 (I/O: INQUIRE for SIZE does not work.)
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.
From-SVN: r157593
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/ioparm.def | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dc155fa..d8a2d3e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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-18 Paul Thomas <pault@gcc.gnu.org> PR fortran/43039 diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index 7de7a51..ba1ba23 100644 --- a/gcc/fortran/ioparm.def +++ b/gcc/fortran/ioparm.def @@ -85,7 +85,7 @@ IOPARM (inquire, encoding, 1 << 2, char1) IOPARM (inquire, round, 1 << 3, char2) IOPARM (inquire, sign, 1 << 4, char1) IOPARM (inquire, pending, 1 << 5, pint4) -IOPARM (inquire, size, 1 << 6, pint4) +IOPARM (inquire, size, 1 << 6, pintio) IOPARM (inquire, id, 1 << 7, pint4) IOPARM (wait, common, 0, common) IOPARM (wait, id, 1 << 7, pint4) |