* io/unix.c (stream_ttyname): Mark argument as potentialy unused.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126983 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index fcb5f44e0f6bf437f53af945aade408c3b2c5a65..c0a81fa475c9e67a62fca57e8d33b34d8f37c039 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-27  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * io/unix.c (stream_ttyname): Mark argument as potentialy unused.
+
 2007-07-27  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR fortran/32035

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index ded0d053d9ce5ed4f95bcaddfdd28e6ed973a260..87d001e7c1f5c4554338c7fa60ffe87203189bdd 100644 (file)
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -1945,7 +1945,7 @@ stream_isatty (stream *s)
 }
 
 char *
-stream_ttyname (stream *s)
+stream_ttyname (stream *s __attribute__ ((unused)))
 {
 #ifdef HAVE_TTYNAME
   return ttyname (((unix_stream *) s)->fd);