stat.c (stat_i4_sub_0, [...]): Mark parameter with unused attribute.

	* intrinsic/stat.c (stat_i4_sub_0, stat_i8_sub_0): Mark parameter
	with unused attribute.
	* intrinsics/system_clock.c (system_clock_4, system_clock_8):
	Remove unused variable.
	* intrinsics/umask.c: Include unistd.h.

From-SVN: r130561

libgfortran/ChangeLog

+2007-12-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* intrinsic/stat.c (stat_i4_sub_0, stat_i8_sub_0): Mark parameter
+	with unused attribute.
+	* intrinsics/system_clock.c (system_clock_4, system_clock_8):
+	Remove unused variable.
+	* intrinsics/umask.c: Include unistd.h.
+
 2007-11-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libfortran/34291

libgfortran/intrinsics/stat.c

@@ -60,7 +60,7 @@ internal_proto(stat_i4_sub_0);*/
 
 static void
 stat_i4_sub_0 (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status,
-	       gfc_charlen_type name_len, int is_lstat)
+	       gfc_charlen_type name_len, int is_lstat __attribute__ ((unused)))
 {
   int val;
   char *str;
@@ -179,7 +179,7 @@ iexport(lstat_i4_sub);
 
 static void
 stat_i8_sub_0 (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status,
-	       gfc_charlen_type name_len, int is_lstat)
+	       gfc_charlen_type name_len, int is_lstat __attribute__ ((unused)))
 {
   int val;
   char *str;

libgfortran/intrinsics/system_clock.c

@@ -59,7 +59,6 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
 	       GFC_INTEGER_4 *count_max)
 {
   GFC_INTEGER_4 cnt;
-  GFC_INTEGER_4 rate;
   GFC_INTEGER_4 mx;
 
 #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
@@ -77,7 +76,6 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
 	cnt = ucnt - GFC_INTEGER_4_HUGE - 1;
       else
 	cnt = ucnt;
-      rate = TCK;
       mx = GFC_INTEGER_4_HUGE;
     }
   else
@@ -122,7 +120,6 @@ system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
 		GFC_INTEGER_8 *count_max)
 {
   GFC_INTEGER_8 cnt;
-  GFC_INTEGER_8 rate;
   GFC_INTEGER_8 mx;
 
 #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
@@ -154,7 +151,6 @@ system_clock_8 (GFC_INTEGER_8 *count, GFC_INTEGER_8 *count_rate,
 	    cnt = ucnt;
 	  mx = GFC_INTEGER_8_HUGE;
 	}
-      rate = TCK;
     }
   else
     {

libgfortran/intrinsics/umask.c

@@ -39,6 +39,11 @@ Boston, MA 02110-1301, USA.  */
 #include <sys/stat.h>
 #endif
 
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+
 /* SUBROUTINE UMASK(MASK, OLD)
    INTEGER, INTENT(IN) :: MASK
    INTEGER, INTENT(OUT), OPTIONAL :: OLD  */