* 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 694ca1d7ac553bb3eaa5d994bc169e179b2b43a6..05c4355ad006f69fa39da1f10551af002ae30591 100644 (file)
--- 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