From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 16 Mar 2005 19:33:07 +0000 (+0000)
Subject: 	* io.h: Setting higher default record length.
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=d5c3b1aff6f79663b7f12efd0d6a86fbd4c6b731;hp=5c40d3bf215793c8af1e4381ad1b536a14e86f27

	* io.h: Setting higher default record length.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96574 138bc75d-0d04-0410-961f-82ee72b054a4
---

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