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/gfortran.h | |
| 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/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 21b0d09..37d70f3 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1806,6 +1806,7 @@ extern int gfc_default_character_kind; extern int gfc_default_logical_kind; extern int gfc_default_complex_kind; extern int gfc_c_int_kind; +extern int gfc_large_io_int_kind; /* symbol.c */ void gfc_clear_new_implicit (void); |