diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-16 19:33:07 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-16 19:33:07 +0000 |
| commit | d5c3b1aff6f79663b7f12efd0d6a86fbd4c6b731 (patch) | |
| tree | ca8f2d91f118b10d4e64f5e484426a62570bc336 /libgfortran | |
| parent | 5c40d3bf215793c8af1e4381ad1b536a14e86f27 (diff) | |
| download | gcc-d5c3b1aff6f79663b7f12efd0d6a86fbd4c6b731.tar.gz | |
* io.h: Setting higher default record length.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96574 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/io/io.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 694ca1d7ac5..05c4355ad00 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -245,10 +245,11 @@ typedef struct unit_flags; -/* The default value of record length is defined here. This value can - be overriden by the OPEN statement or by an environment variable. */ +/* The default value of record length for preconnected units is defined + here. This value can be overriden by an environment variable. + Default value is 1 Gb. */ -#define DEFAULT_RECL 10000 +#define DEFAULT_RECL 1073741824 typedef struct gfc_unit |