From 40eea1507935904743c63f2f81a52d5cabb06ac7 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gcc.gnu.org>
Date: Mon, 6 Jul 1998 09:52:26 +0000
Subject: [PATCH] (system_clock_): Remove (just f90 intrinsic).

From-SVN: r20947
---
 libf2c/f2cext.c | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/libf2c/f2cext.c b/libf2c/f2cext.c
index fa1eff7e197..2b51d88e75c 100644
--- a/libf2c/f2cext.c
+++ b/libf2c/f2cext.c
@@ -512,13 +512,6 @@ integer symlnk_ (const char *path1, const char *path2, const ftnlen Lpath1, cons
 }
 #endif
 
-#ifdef Lsclock
-int system_clock_ (integer *count, integer *count_rate, integer *count_max) {
-    extern int G77_system_clock_0 (integer *count, integer *count_rate, integer *count_max);
-    return G77_system_clock_0 (count, count_rate, count_max);
-}
-#endif
-
 #ifdef Ltime
 longint time_ (void) {
     extern longint G77_time_0 (void);