diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cf5860414d0ec2b36beb6b2f8e30cd57682ef1e8..8add02fb4e23b7563bb9dde2650f6d59e3769cd9 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-25  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* io/io.h: Move proto for unit_to_fd...
+	* libgfortran.h: ...here.
+
 2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* intrinsics/ierrno.c: Don't include "io/io.h".
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h
index 128b600efdec69bb62ba26f99b6660655b3ea0f7..aa8a6a693f79871b266ddb275f78a6de1888c976 100644
--- a/libgfortran/io/io.h
+++ b/libgfortran/io/io.h
@@ -682,9 +682,6 @@ internal_proto(stream_ttyname);
 extern gfc_offset stream_offset (stream *s);
 internal_proto(stream_offset);
 
-extern int unit_to_fd (int);
-internal_proto(unit_to_fd);
-
 extern int unpack_filename (char *, const char *, int);
 internal_proto(unpack_filename);
 
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index 8a57bfaf17c6c46051e1df552261210d953f9e31..cb3d6589c3343aa67c93194fccd8c2c18aefacde 100644
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -545,6 +545,9 @@ internal_proto(init_units);
 extern void close_units (void);
 internal_proto(close_units);
 
+extern int unit_to_fd (int);
+internal_proto(unit_to_fd);
+
 /* stop.c */
 
 extern void stop_numeric (GFC_INTEGER_4);