diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-24 00:19:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-24 00:19:45 +0000 |
| commit | 4fec64b07b9da385b80e89f86c603cb13c90c56c (patch) | |
| tree | cafb4ddf881a103f1c23303872bd9960d3b3d653 /gcc/fortran/ioparm.def | |
| parent | 566ffce8955401e87e86899239f5bb0a6a5b6b0f (diff) | |
| download | gcc-4fec64b07b9da385b80e89f86c603cb13c90c56c.zip gcc-4fec64b07b9da385b80e89f86c603cb13c90c56c.tar.gz gcc-4fec64b07b9da385b80e89f86c603cb13c90c56c.tar.bz2 | |
re PR libfortran/25289 (Cannot handle record numbers large than huge(0_4))
2006-07-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25289
* gfortran.h: Declare gfc_large_io_int_kind.
* trans-types.c (gfc_init_kinds): Set gfc_large_io_int_kind
to size 8 or 4.
* trans-io.c (enum iofield_type): Add large_io_int type.
(gfc_build_st_parameter): Same.
(gfc_build_io_library_fndecls): Same.
* ioparm_def: Use large_io_int to define rec.
From-SVN: r115700
Diffstat (limited to 'gcc/fortran/ioparm.def')
| -rw-r--r-- | gcc/fortran/ioparm.def | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def index 0fe9a7b..977e4f0 100644 --- a/gcc/fortran/ioparm.def +++ b/gcc/fortran/ioparm.def @@ -58,7 +58,7 @@ IOPARM (inquire, convert, 1 << 29, char1) #define IOPARM_dt_namelist_read_mode (1 << 8) #endif IOPARM (dt, common, 0, common) -IOPARM (dt, rec, 1 << 9, int4) +IOPARM (dt, rec, 1 << 9, large_io_int) IOPARM (dt, size, 1 << 10, pint4) IOPARM (dt, iolength, 1 << 11, pint4) IOPARM (dt, internal_unit_desc, 0, parray) |