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

[gcc.git] / libf2c / libU77 / date_.c

diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c
index ca94797e25c8fc5341a7fc9805897b70cd9fca6b..306cc5f2da481381e8834a7fdd6b2348fcbd3970 100644 (file)
--- a/libf2c/libU77/date_.c
+++ b/libf2c/libU77/date_.c
@@ -9,47 +9,48 @@
 
 static integer c__5 = 5;
 
-/* Subroutine */ int G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
+/* Subroutine */ int
+G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
 {
-    /* System generated locals */
-    address a__1[5];
-    longint i__1;
-    integer i__2[5];
-    char ch__1[24];
-
-    /* Builtin functions */
-    /* Subroutine */ int s_copy(), s_cat();
-
-    /* Local variables */
-    static char cbuf[24];
-    extern longint G77_time_0 ();
-    extern /* Character */ void G77_ctime_0 ();
-
-    i__1 = G77_time_0 ();
-    G77_ctime_0 (ch__1, 24L, &i__1);
-    s_copy(cbuf, ch__1, 24L, 24L);
+  /* System generated locals */
+  address a__1[5];
+  longint i__1;
+  integer i__2[5];
+  char ch__1[24];
+
+  /* Builtin functions */
+  /* Subroutine */ int s_copy (), s_cat ();
+
+  /* Local variables */
+  static char cbuf[24];
+  extern longint G77_time_0 ();
+  extern /* Character */ void G77_ctime_0 ();
+
+  i__1 = G77_time_0 ();
+  G77_ctime_0 (ch__1, 24L, &i__1);
+  s_copy (cbuf, ch__1, 24L, 24L);
 /* Writing concatenation */
-    i__2[0] = 2, a__1[0] = cbuf + 8;
-    i__2[1] = 1, a__1[1] = "-";
-    i__2[2] = 3, a__1[2] = cbuf + 4;
-    i__2[3] = 1, a__1[3] = "-";
-    i__2[4] = 2, a__1[4] = cbuf + 22;
-    s_cat(buf, a__1, i__2, &c__5, buf_len);
-    return 0;
-} /* date_ */
+  i__2[0] = 2, a__1[0] = cbuf + 8;
+  i__2[1] = 1, a__1[1] = "-";
+  i__2[2] = 3, a__1[2] = cbuf + 4;
+  i__2[3] = 1, a__1[3] = "-";
+  i__2[4] = 2, a__1[4] = cbuf + 22;
+  s_cat (buf, a__1, i__2, &c__5, buf_len);
+  return 0;
+}                              /* date_ */
 
 #ifdef PIC
 #  include <stdio.h>
 
 const char *G77_Non_Y2K_Compliance_Message =
-   "Call to non Y2K compliant subroutine detected.";
+  "Call to non Y2K compliant subroutine detected.";
 
-int G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
+int
+G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
+                    ftnlen buf_len __attribute__ ((__unused__)))
 {
-  extern int G77_abort_0();
+  extern int G77_abort_0 ();
   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
-  G77_abort_0();
+  G77_abort_0 ();
 }
 #endif
-
-