]> git.ipfire.org Git - thirdparty/gcc.git/commit
u77-test.f: Don't bother declaring etime.
authorCraig Burley <burley@gnu.org>
Sat, 28 Mar 1998 00:28:21 +0000 (19:28 -0500)
committerJeff Law <law@gcc.gnu.org>
Sat, 28 Mar 1998 00:28:21 +0000 (17:28 -0700)
commita051827081876f17cc09d2d20c9ce6702fc901c7
treeb09838b2ea570d743dc4165680e7063ba1bf10e0
parent4d1d804584e7b0795a7c355d3a9cafaa947f1071
u77-test.f: Don't bother declaring etime.

        * libU77/u77-test.f: Don't bother declaring etime.
        Use `implicit none' and declare mask and lenstr.
        Do ETIME/DTIME consistency check before loop, then
        use loop to verify that dtime "ticks" at some point.
        Check ETIME array-sum using single-precision add, to
        avoid spurious complaint on systems (like x86) that
        use more precision for intermediate results.
        Fix `Results of ETIME and DTIME...' message to print
        pertinent values (r1 and r2 instead of i and j).
        Change loop from 10M to 1K repeated up to 1000 times
        or until dtime "ticks".
        Print the number of 1K loops needed to see this tick.
        Answer a commented question.
        Split up a long line of output and do other prettying.
        Preset lognam in case GETLOG fails to overwrite it.
Patch from Craig.

From-SVN: r18861
libf2c/ChangeLog
libf2c/libU77/u77-test.f