unpack_generic.c: Remove const from parameter.

	* intrinsics/unpack_generic.c: Remove const from parameter.

	* io/transfer.c (formatted_transfer): Remove unused variable.

From-SVN: r101499

libgfortran/ChangeLog

+2005-07-01  Andreas Jaeger  <aj@suse.de>
+
+	* intrinsics/unpack_generic.c: Remove const from parameter.
+
+	* io/transfer.c (formatted_transfer): Remove unused variable.
+
 2005-06-28  Thomas Koenig  <Thomas.Koenig@online.de>
 
 	PR libfortran/22142

libgfortran/intrinsics/unpack_generic.c

@@ -179,12 +179,12 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector,
 }
 iexport(unpack1);
 
-extern void unpack0 (const gfc_array_char *, const gfc_array_char *,
+extern void unpack0 (gfc_array_char *, const gfc_array_char *,
 		     const gfc_array_l4 *, char *);
 export_proto(unpack0);
 
 void
-unpack0 (const gfc_array_char *ret, const gfc_array_char *vector,
+unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
 	 const gfc_array_l4 *mask, char *field)
 {
   gfc_array_char tmp;

libgfortran/io/transfer.c

@@ -439,7 +439,7 @@ formatted_transfer (bt type, void *p, int len)
 {
   int pos ,m ;
   fnode *f;
-  int i, n;
+  int n;
   int consume_data_flag;
 
   /* Change a complex data item into a pair of reals.  */