date_.c   [plain text]


/* 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() __attribute__ ((noreturn));
  fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
  G77_abort_0 ();
}
#endif