standard-conforming error check for [de]time_.c

From-SVN: r26849

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index ee85e7966f16db89843f7534bf1000a0c9274bd3..738f1f18182df2edddd60591fa3a611608a1c025 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com)
+
+       * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check.
+       * libU77/etime_.c (G77_etime_0): Likewise.
+
 Mon May  3 19:15:07 1999  Craig Burley  <craig@jcb-sc.com>
 
        * libU77/u77-test.f (main): Declare ABORT as intrinsic.

diff --git a/libf2c/libU77/dtime_.c b/libf2c/libU77/dtime_.c
index 0200a01af6fb3e1be949f4a5b8447e15c4564884..aa34bc027e0881a736fa2a742d43a9e2dee37006 100644 (file)
--- a/libf2c/libU77/dtime_.c
+++ b/libf2c/libU77/dtime_.c
@@ -155,7 +155,7 @@ double G77_dtime_0 (real tarray[2])
 #  else
   #error Dont know clock tick length
 #  endif
-  if (times(&buffer) < 0) return -1.0;
+  if (times(&buffer) == (clock_t)-1) return -1.0;
   utime = buffer.tms_utime; stime = buffer.tms_stime;
   tarray[0] = ((float)(utime - old_utime)) / (float)clk_tck;
   tarray[1] = ((float)(stime - old_stime)) / (float)clk_tck;

diff --git a/libf2c/libU77/etime_.c b/libf2c/libU77/etime_.c
index 374fc2feba239ed3fd1f9fcf153894095176cea8..eae559f74147c87a4f676ecd69cf4384fffcd636 100644 (file)
--- a/libf2c/libU77/etime_.c
+++ b/libf2c/libU77/etime_.c
@@ -148,7 +148,7 @@ double G77_etime_0 (real tarray[2])
 #  else
   #error Dont know clock tick length
 #  endif
-  if (times(&buffer) < 0) return -1.0;
+  if (times(&buffer) == (clock_t)-1) return -1.0;
   tarray[0] = (float) buffer.tms_utime / (float)clk_tck;
   tarray[1] = (float) buffer.tms_stime / (float)clk_tck;
 #endif /* HAVE_GETRUSAGE */