646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
23 lines
739 B
Diff
23 lines
739 B
Diff
diff --git a/src/gctime.c b/src/gctime.c
|
|
index 34fcb6f..832459c 100644
|
|
--- a/src/gctime.c
|
|
+++ b/src/gctime.c
|
|
@@ -1,14 +1,15 @@
|
|
+#include <string.h>
|
|
typedef long f77_int; /* Fortran integer type */
|
|
typedef char * f77_char; /* Fortran character argument */
|
|
#define CH_F2C(X) ((char *) (X)) /* How to get char ptr from F77 argument */
|
|
-gctime (fstr, lstr) f77_char *fstr; int lstr; {
|
|
+int gctime (fstr, lstr) f77_char *fstr; int lstr; {
|
|
long time(), t;
|
|
char *ctime();
|
|
t = time ( (long *) 0);
|
|
strcpy(CH_F2C(fstr),ctime(&t));
|
|
return (0);
|
|
}
|
|
-gctime_(fstr, lstr) f77_char *fstr; int lstr; {
|
|
+int gctime_(fstr, lstr) f77_char *fstr; int lstr; {
|
|
long time(), t;
|
|
char *ctime();
|
|
t = time ( (long *) 0);
|