libf2c/libU77/date_.c

   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 */
   5
   6 #include "f2c.h"
   7
   8 /* Table of constant values */
   9
  10 static integer c__5 = 5;
  11
  12 /* Subroutine */ int
  13 G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
  14 {
  15   /* System generated locals */
  16   address a__1[5];
  17   longint i__1;
  18   integer i__2[5];
  19   char ch__1[24];
  20
  21   /* Builtin functions */
  22   /* Subroutine */ int s_copy (), s_cat ();
  23
  24   /* Local variables */
  25   static char cbuf[24];
  26   extern longint G77_time_0 ();
  27   extern /* Character */ void G77_ctime_0 ();
  28
  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_ */
  41
  42 #ifdef PIC
  43 #  include <stdio.h>
  44
  45 const char *G77_Non_Y2K_Compliance_Message =
  46   "Call to non Y2K compliant subroutine detected.";
  47
  48 int
  49 G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
  50                      ftnlen buf_len __attribute__ ((__unused__)))
  51 {
  52   extern int G77_abort_0() __attribute__ ((noreturn));
  53   fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
  54   G77_abort_0 ();
  55 }
  56 #endif