2
0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-27 08:59:10 +08:00
gcc/libf2c/libU77/date_.c
Kaveh R. Ghazi 304a3a85de 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
2002-06-05 19:07:11 +00:00

57 lines
1.3 KiB
C

/* date_.f -- translated by f2c (version 19961001).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
*/
#include "f2c.h"
/* Table of constant values */
static integer c__5 = 5;
/* 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);
/* 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_ */
#ifdef PIC
# include <stdio.h>
const char *G77_Non_Y2K_Compliance_Message =
"Call to non Y2K compliant subroutine detected.";
int
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);
G77_abort_0 ();
}
#endif