diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-28 01:40:23 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-12-28 01:40:23 +0000 |
| commit | cf7946521395a76bafc978c02b43e78536a71c0c (patch) | |
| tree | 12ba3fe42dffb08262da6b5bad1f6843ef4fee53 /libgfortran/io/io.h | |
| parent | 3415f511593e977c04a73cc3dbd48da0fa48c284 (diff) | |
| download | gcc-cf7946521395a76bafc978c02b43e78536a71c0c.zip gcc-cf7946521395a76bafc978c02b43e78536a71c0c.tar.gz gcc-cf7946521395a76bafc978c02b43e78536a71c0c.tar.bz2 | |
re PR libfortran/30014 (INQUIRE (iolength = xx) limited to kind=4)
2006-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30014
*io/io.h (st_parameter_dt): Change *size and *iolength type to
GFC_IO_INT.
*io/transfer.c (finalize_transfer): Cast dtp->u.p.size_used to
GFC_IO_INT. (iolength_transfer): Cast size * nelems to GFC_IO_INT.
From-SVN: r120234
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 4d227dd..314fc4c 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -354,7 +354,7 @@ typedef struct st_parameter_dt { st_parameter_common common; GFC_IO_INT rec; - GFC_INTEGER_4 *size, *iolength; + GFC_IO_INT *size, *iolength; gfc_array_char *internal_unit_desc; CHARACTER1 (format); CHARACTER2 (advance); |