(system_clock_): Remove (just f90 intrinsic).

From-SVN: r20947
This commit is contained in:
Dave Love 1998-07-06 09:52:26 +00:00
parent 28ef523e11
commit 40eea15079

View file

@ -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);