dedc4a53c1
2001-09-29 Juergen Pfeifer <juergen.pfeifer@gmx.net>
Make libf2c a shared library (gcc/f directory).
* Make-lang.in: Pass define of frtbegin.o to compilation of g77spec.c.
* g77spec.c (lang_specific_driver): Treat linking in of frtbegin.o.
2001-09-29 Juergen Pfeifer <juergen.pfeifer@gmx.net>
Toon Moene <toon@moene.indiv.nluug.nl>
Make libf2c a shared library (libf2c directory).
* aclocal.m4: Get definition of libtool.
* Makefile.in: Use libtool.
* configure.in: Use libtool.
* configure: Regenerated.
* libF77/Makefile.in: Use libtool; treat main program contained in
libF77/main.c specially.
* libF77/configure.in: Use libtool.
* libF77/configure: Regenerated.
* libI77/Makefile.in: Use libtool.
* libI77/configure.in: Use libtool.
* libI77/configure: Regenerated.
* libU77/Makefile.in: Use libtool.
* libU77/configure.in: Use libtool.
* libU77/configure: Regenerated.
* libU77/date_.c: Adapt for -fPIC compiling.
* libU77/vxtidate_.c: Ditto.
From-SVN: r45913
56 lines
1.3 KiB
C
56 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, ftnlen buf_len)
|
|
{
|
|
extern int G77_abort_0();
|
|
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
|
|
G77_abort_0();
|
|
}
|
|
#endif
|
|
|
|
|