diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-24 00:19:45 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-24 00:19:45 +0000 |
| commit | 9b09a38b97072222fcf6a2840450c7461680abd3 (patch) | |
| tree | cafb4ddf881a103f1c23303872bd9960d3b3d653 /gcc/fortran/ioparm.def | |
| parent | 2185ae8cde221200b784be5543f762238ebb55ed (diff) | |
| download | ppe42-gcc-9b09a38b97072222fcf6a2840450c7461680abd3.tar.gz ppe42-gcc-9b09a38b97072222fcf6a2840450c7461680abd3.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115700 138bc75d-0d04-0410-961f-82ee72b054a4
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 0fe9a7b45bf..977e4f030d4 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) |
