diff options
author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-01 01:37:08 +0000 |
---|---|---|
committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-01 01:37:08 +0000 |
commit | a9fe81af3b8d02e1529b3f1f2a679b93cd9c36e1 (patch) | |
tree | 4b30cdf598ee6a8b24903fba52bb3e0c06bf459b /libf2c/libU77/date_.c | |
parent | 9682c2b47acc059592d168a09c7162f2bf333ee2 (diff) | |
download | ppe42-gcc-a9fe81af3b8d02e1529b3f1f2a679b93cd9c36e1.tar.gz ppe42-gcc-a9fe81af3b8d02e1529b3f1f2a679b93cd9c36e1.zip |
* Previous contents of gcc/f/runtime moved into toplevel
"libf2c" directory.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@17568 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libU77/date_.c')
-rw-r--r-- | libf2c/libU77/date_.c | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c new file mode 100644 index 00000000000..8426edc4fb0 --- /dev/null +++ b/libf2c/libU77/date_.c @@ -0,0 +1,39 @@ +/* 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_0 (char *buf, ftnlen buf_len) +{ + /* System generated locals */ + address a__1[5]; + integer i__1, i__2[5]; + char ch__1[24]; + + /* Builtin functions */ + /* Subroutine */ int s_copy(), s_cat(); + + /* Local variables */ + static char cbuf[24]; + extern integer 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_ */ + |