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

From-SVN: r126983

libgfortran/ChangeLog

 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
 	* runtime/select.c (select_string): Adjust prototype and function
 	so that the return value is an integer, not a pointer.

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);