summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libU77/vxttime_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libU77/vxttime_.c')
-rw-r--r--contrib/libf2c/libU77/vxttime_.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/contrib/libf2c/libU77/vxttime_.c b/contrib/libf2c/libU77/vxttime_.c
index e45cc05..5982748 100644
--- a/contrib/libf2c/libU77/vxttime_.c
+++ b/contrib/libf2c/libU77/vxttime_.c
@@ -39,17 +39,13 @@ Boston, MA 02111-1307, USA. */
#include "f2c.h"
/* Subroutine */
-#ifdef KR_headers
-void G77_vxttime_0 (chtime, Lchtime)
- char chtime[8];
- ftnlen Lchtime;
-#else
-void G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
-#endif
+void
+G77_vxttime_0 (char chtime[8],
+ const ftnlen Lchtime __attribute__ ((__unused__)))
{
time_t tim;
char *ctim;
- tim = time(NULL);
+ tim = time (NULL);
ctim = ctime (&tim);
- strncpy (chtime, ctim+11, 8);
+ strncpy (chtime, ctim + 11, 8);
}
OpenPOWER on IntegriCloud