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
@@ -46,7 +52,7 @@
 	* aclocal.m4: Regenerated.
 	* Makefile.in: Regenerated.
 	* configure: Regenerated.
-	* intrinsics/hyper.c: New file, adds new wrapper functions. 
+	* intrinsics/hyper.c: New file, adds new wrapper functions.
 
 2005-06-23  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
@@ -233,7 +239,7 @@
 	concerning advancing I/O.
 	(data_transfer_init): Likewise.
 	(finalize_transfer): Likewise.
-	
+
 2005-05-27  Thomas Koenig  <Thomas.Koenig@online.de>
 
 	* runtime/in_pack_generic.c:  Adjust copyright years.

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.  */