From: François-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Wed, 16 Mar 2005 19:33:07 +0000 (+0000)
Subject: * io.h: Setting higher default record length.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0376d694c2162127e4a727dd67e8c982eff04871;p=gcc.git

* io.h: Setting higher default record length.

From-SVN: r96574
---

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