diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index fd703da6447..20a07192b6d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-17  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* io/io.h (is_preconnected): Remove prototype.
+	* io/unix.c (is_preconnected): Remove function.
+
 2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
 
 	* configure.ac: Test for -ffunction-sections -fdata-sections and
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h
index c9b3db3da5f..22e097ae22d 100644
--- a/libgfortran/io/io.h
+++ b/libgfortran/io/io.h
@@ -773,9 +773,6 @@ internal_proto(is_seekable);
 extern int is_special (stream *);
 internal_proto(is_special);
 
-extern int is_preconnected (stream *);
-internal_proto(is_preconnected);
-
 extern void flush_if_preconnected (stream *);
 internal_proto(flush_if_preconnected);
 
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index 4d5ec70ae84..a7eb4e36ae5 100644
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -190,17 +190,6 @@ fix_fd (int fd)
   return fd;
 }
 
-int
-is_preconnected (stream * s)
-{
-  int fd;
-
-  fd = ((unix_stream *) s)->fd;
-  if (fd == STDIN_FILENO || fd == STDOUT_FILENO || fd == STDERR_FILENO)
-    return 1;
-  else
-    return 0;
-}
 
 /* If the stream corresponds to a preconnected unit, we flush the
    corresponding C stream.  This is bugware for mixed C-Fortran codes