diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-18 18:13:20 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-18 18:13:20 +0200 |
| commit | 831cf09d60eed9f14cb06e83831cf74ea328a3bf (patch) | |
| tree | 1f0ffde25ee162d2e83641619ab9b90e6f3791af /libgfortran/io/io.h | |
| parent | a814e35ba380d278f95e703efb0cb672987983f7 (diff) | |
| download | gcc-831cf09d60eed9f14cb06e83831cf74ea328a3bf.zip gcc-831cf09d60eed9f14cb06e83831cf74ea328a3bf.tar.gz gcc-831cf09d60eed9f14cb06e83831cf74ea328a3bf.tar.bz2 | |
PR 44292 Enable large record lengths in OPEN and INQUIRE statements
This is a straightforward change that we can do now that the ABI has
been bumped (again!).
Regtested on x86_64-pc-linux-gnu.
gcc/fortran/ChangeLog:
2017-11-18 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/44292
* ioparm.def (IOPARM): Make recl_in intio, and recl_out pintio.
libgfortran/ChangeLog:
2017-11-18 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/44292
* io/io.h: Make recl_in a GC_IO_INT and recl_out a type
GFC_IO_INT*.
gcc/testsuite/ChangeLog:
2017-11-18 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/44292
* gfortran.dg/large_recl.f90: New test.
From-SVN: r254915
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index df49157..3330bce 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -308,7 +308,7 @@ unit_sign_s; typedef struct { st_parameter_common common; - GFC_INTEGER_4 recl_in; + GFC_IO_INT recl_in; CHARACTER2 (file); CHARACTER1 (status); CHARACTER2 (access); @@ -388,8 +388,8 @@ typedef struct { st_parameter_common common; GFC_INTEGER_4 *exist, *opened, *number, *named; - GFC_INTEGER_4 *nextrec, *recl_out; - GFC_IO_INT *strm_pos_out; + GFC_INTEGER_4 *nextrec; + GFC_IO_INT *recl_out, *strm_pos_out; CHARACTER1 (file); CHARACTER2 (access); CHARACTER1 (form); |