* 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.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index def1ef1..8ba4cd3 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,11 @@
+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

diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c
index ccdba1b..11d59a8 100644 (file)
--- a/libgfortran/intrinsics/stat.c
+++ b/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;

diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c
index db87bd4..2c98be6 100644 (file)
--- a/libgfortran/intrinsics/system_clock.c
+++ b/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
     {

diff --git a/libgfortran/intrinsics/umask.c b/libgfortran/intrinsics/umask.c
index c348c72..81f84d2 100644 (file)
--- a/libgfortran/intrinsics/umask.c
+++ b/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  */