* config.gcc (m32r-elf): Revert previous delta.
[official-gcc.git] / libf2c / libU77 / date_.c
blob973d01470f7439d788076600302fd4ecbf612cb3
1 /* date_.f -- translated by f2c (version 19961001).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
6 #include "f2c.h"
8 /* Table of constant values */
10 static integer c__5 = 5;
12 /* Subroutine */ int
13 G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
15 /* System generated locals */
16 address a__1[5];
17 longint i__1;
18 integer i__2[5];
19 char ch__1[24];
21 /* Builtin functions */
22 /* Subroutine */ int s_copy (), s_cat ();
24 /* Local variables */
25 static char cbuf[24];
26 extern longint G77_time_0 ();
27 extern /* Character */ void G77_ctime_0 ();
29 i__1 = G77_time_0 ();
30 G77_ctime_0 (ch__1, 24L, &i__1);
31 s_copy (cbuf, ch__1, 24L, 24L);
32 /* Writing concatenation */
33 i__2[0] = 2, a__1[0] = cbuf + 8;
34 i__2[1] = 1, a__1[1] = "-";
35 i__2[2] = 3, a__1[2] = cbuf + 4;
36 i__2[3] = 1, a__1[3] = "-";
37 i__2[4] = 2, a__1[4] = cbuf + 22;
38 s_cat (buf, a__1, i__2, &c__5, buf_len);
39 return 0;
40 } /* date_ */
42 #ifdef PIC
43 # include <stdio.h>
45 const char *G77_Non_Y2K_Compliance_Message =
46 "Call to non Y2K compliant subroutine detected.";
48 int
49 G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
50 ftnlen buf_len __attribute__ ((__unused__)))
52 extern int G77_abort_0() __attribute__ ((noreturn));
53 fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
54 G77_abort_0 ();
56 #endif