Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / libgfortran / io / io.h
index 06364e1..8ea9326 100644 (file)
@@ -1,10 +1,8 @@
-/* Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-   2011
-   Free Software Foundation, Inc.
+/* Copyright (C) 2002-2013 Free Software Foundation, Inc.
    Contributed by Andy Vaught
    F2003 I/O support contributed by Jerry DeLisle
 
-This file is part of the GNU Fortran 95 runtime library (libgfortran).
+This file is part of the GNU Fortran runtime library (libgfortran).
 
 Libgfortran is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -72,7 +70,7 @@ typedef struct array_loop_spec
 }
 array_loop_spec;
 
-/* A stucture to build a hash table for format data.  */
+/* A structure to build a hash table for format data.  */
 
 #define FORMAT_HASH_SIZE 16
 
@@ -293,6 +291,7 @@ st_parameter_filepos;
 #define IOPARM_INQUIRE_HAS_PENDING     (1 << 5)
 #define IOPARM_INQUIRE_HAS_SIZE                (1 << 6)
 #define IOPARM_INQUIRE_HAS_ID          (1 << 7)
+#define IOPARM_INQUIRE_HAS_IQSTREAM    (1 << 8)
 
 typedef struct
 {
@@ -326,6 +325,7 @@ typedef struct
   GFC_INTEGER_4 *pending;
   GFC_IO_INT *size;
   GFC_INTEGER_4 *id;
+  CHARACTER1 (iqstream);
 }
 st_parameter_inquire;
 
@@ -400,7 +400,7 @@ typedef struct st_parameter_dt
          unsigned at_eol : 1;
          unsigned comma_flag : 1;
          /* A namelist specific flag used in the list directed library
-            to flag that calls are being made from namelist read (eg. to
+            to flag that calls are being made from namelist read (e.g. to
             ignore comments or to treat '/' as a terminator)  */
          unsigned namelist_mode : 1;
          /* A namelist specific flag used in the list directed library
@@ -647,9 +647,6 @@ internal_proto(init_loop_spec);
 extern void next_record (st_parameter_dt *, int);
 internal_proto(next_record);
 
-extern void reverse_memcpy (void *, const void *, size_t);
-internal_proto (reverse_memcpy);
-
 extern void st_wait (st_parameter_wait *);
 export_proto(st_wait);
 
@@ -661,8 +658,8 @@ internal_proto(hit_eof);
 extern void set_integer (void *, GFC_INTEGER_LARGEST, int);
 internal_proto(set_integer);
 
-extern GFC_UINTEGER_LARGEST max_value (int, int);
-internal_proto(max_value);
+extern GFC_UINTEGER_LARGEST si_max (int);
+internal_proto(si_max);
 
 extern int convert_real (st_parameter_dt *, void *, const char *, int);
 internal_proto(convert_real);