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

libf2c/ChangeLog

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

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

libf2c/libF77/h_len.c

 #include "f2c.h"
 
 shortint
-h_len (char *s, ftnlen n)
+h_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }

libf2c/libF77/i_len.c

 #include "f2c.h"
 
 integer
-i_len (char *s, ftnlen n)
+i_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }

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

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

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;

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

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;