f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.

	* f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.
	* libF77/h_len.c (h_len): Likewise.
	* libF77/i_len.c (i_len): Likewise.
	* libI77/rsli.c (i_ungetc): Likewise.
	* libU77/date_.c (G77_date_y2kbuggy_0): Likewise.
	* libU77/fputc_.c (G77_fputc_0): Likewise.
	* libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.
	* libU77/vxttime_.c (G77_vxttime_0): Likewise.

From-SVN: r54289

9 files changed, 26 insertions, 8 deletions

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index b3582a1..87e33df 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,14 @@
+Wed Jun  5 15:05:41 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.
+	* libF77/h_len.c (h_len): Likewise.
+	* libF77/i_len.c (i_len): Likewise.
+	* libI77/rsli.c (i_ungetc): Likewise.
+	* libU77/date_.c (G77_date_y2kbuggy_0): Likewise.
+	* libU77/fputc_.c (G77_fputc_0): Likewise.
+	* libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.
+	* libU77/vxttime_.c (G77_vxttime_0): Likewise.
+
 Mon Jun  3 22:24:48 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* libF77/main.c (f_setarg, f_setsig): Prototype.
diff --git a/libf2c/f2cext.c b/libf2c/f2cext.c
index 56f9490..69d12b6 100644
--- a/libf2c/f2cext.c
+++ b/libf2c/f2cext.c
@@ -140,7 +140,8 @@ integer access_ (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
 #endif
 
 #ifdef Lalarm
-integer alarm_ (integer *seconds, sig_proc proc, integer *status) {
+integer alarm_ (integer *seconds, sig_proc proc,
+		integer *status __attribute__ ((__unused__))) {
     extern integer G77_alarm_0 (integer *seconds, sig_proc proc);
     return G77_alarm_0 (seconds, proc);
 }
diff --git a/libf2c/libF77/h_len.c b/libf2c/libF77/h_len.c
index 0782af1..506016e 100644
--- a/libf2c/libF77/h_len.c
+++ b/libf2c/libF77/h_len.c
@@ -1,7 +1,7 @@
 #include "f2c.h"
 
 shortint
-h_len (char *s, ftnlen n)
+h_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }
diff --git a/libf2c/libF77/i_len.c b/libf2c/libF77/i_len.c
index 3a43b86..2d5a3a4 100644
--- a/libf2c/libF77/i_len.c
+++ b/libf2c/libF77/i_len.c
@@ -1,7 +1,7 @@
 #include "f2c.h"
 
 integer
-i_len (char *s, ftnlen n)
+i_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }
diff --git a/libf2c/libI77/rsli.c b/libf2c/libI77/rsli.c
index a5cd8c5..c07632a 100644
--- a/libf2c/libI77/rsli.c
+++ b/libf2c/libI77/rsli.c
@@ -26,7 +26,8 @@ i_getc (void)
 }
 
 static int
-i_ungetc (int ch, FILE * f)
+i_ungetc (int ch __attribute__ ((__unused__)),
+	  FILE * f __attribute__ ((__unused__)))
 {
   if (--f__recpos == f__svic->icirlen)
     return '\n';
diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c
index fffbe20..306cc5f 100644
--- a/libf2c/libU77/date_.c
+++ b/libf2c/libU77/date_.c
@@ -46,7 +46,8 @@ const char *G77_Non_Y2K_Compliance_Message =
   "Call to non Y2K compliant subroutine detected.";
 
 int
-G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
+G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
+		     ftnlen buf_len __attribute__ ((__unused__)))
 {
   extern int G77_abort_0 ();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
diff --git a/libf2c/libU77/fputc_.c b/libf2c/libU77/fputc_.c
index 0a878bd..7e45dd41 100644
--- a/libf2c/libU77/fputc_.c
+++ b/libf2c/libU77/fputc_.c
@@ -27,7 +27,8 @@ Boston, MA 02111-1307, USA.  */
 #include "fio.h"
 
 integer
-G77_fputc_0 (const integer * lunit, const char *c, const ftnlen Lc)
+G77_fputc_0 (const integer * lunit, const char *c,
+	     const ftnlen Lc __attribute__ ((__unused__)))
 {
   int err;
   FILE *f = f__units[*lunit].ufd;
diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c
index 7bf0ec9..0563a91 100644
--- a/libf2c/libU77/vxtidate_.c
+++ b/libf2c/libU77/vxtidate_.c
@@ -54,7 +54,9 @@ G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y)
 #ifdef PIC
 extern const char *G77_Non_Y2K_Compliance_Message;
 int
-G77_vxtidate_y2kbuggy_0 (integer * m, integer * d, integer * y)
+G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)),
+			 integer * d __attribute__ ((__unused__)),
+			 integer * y __attribute__ ((__unused__)))
 {
   extern int G77_abort_0 ();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
diff --git a/libf2c/libU77/vxttime_.c b/libf2c/libU77/vxttime_.c
index c283aac..5982748 100644
--- a/libf2c/libU77/vxttime_.c
+++ b/libf2c/libU77/vxttime_.c
@@ -40,7 +40,8 @@ Boston, MA 02111-1307, USA.  */
 
 /* Subroutine */
 void
-G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
+G77_vxttime_0 (char chtime[8],
+	       const ftnlen Lchtime __attribute__ ((__unused__)))
 {
   time_t tim;
   char *ctim;