warn about wraparound in MCLOCK8, TIME8

From-SVN: r25193

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index f3bb40aa092cbecb90dea3b9f641711594d4add9..c8c356cb21328a78066e5aabfc986959b8cb924c 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-14  Craig Burley  <craig@jcb-sc.com>
+
+       * intdoc.in (MCLOCK8, TIME8): Warn about lower range on
+       32-bit systems.
+
 Sat Feb  6 17:17:09 1999  Jeffrey A Law  (law@cygnus.com)
 
        * g77.texi: Update email addresses.

diff --git a/gcc/f/intdoc.in b/gcc/f/intdoc.in
index 62b93645b1e41499b4c5bda29216bee166fe0694..31f8fb61c1ab13bddbc998de45dac3349831bb06 100644 (file)
--- a/gcc/f/intdoc.in
+++ b/gcc/f/intdoc.in
@@ -1263,6 +1263,13 @@ DEFDOC (MCLOCK8, "Get number of clock ticks for process.", "\
 Returns the number of clock ticks since the start of the process.
 Supported on systems with @code{clock(3)} (q.v.).
 
+@emph{Warning:} this intrinsic does not increase the range
+of the timing values over that returned by @code{clock(3)}.
+On a system with a 32-bit @code{clock(3)},
+@code{@0@} will return a 32-bit value,
+even though converted to an @samp{INTEGER(KIND=2)} value.
+That means overflows of the 32-bit value can still occur.
+
 No Fortran implementations other than GNU Fortran are
 known to support this intrinsic at the time of this
 writing.
@@ -1315,6 +1322,13 @@ Returns the current time encoded as a long integer
 This value is suitable for passing to @code{CTIME},
 @code{GMTIME}, and @code{LTIME}.
 
+@emph{Warning:} this intrinsic does not increase the range
+of the timing values over that returned by @code{time(3)}.
+On a system with a 32-bit @code{time(3)},
+@code{@0@} will return a 32-bit value,
+even though converted to an @samp{INTEGER(KIND=2)} value.
+That means overflows of the 32-bit value can still occur.
+
 No Fortran implementations other than GNU Fortran are
 known to support this intrinsic at the time of this
 writing.