[Patch, fortran/14994] Fix - SECNDS Intrinsic not supported

[Paul Thomas]

:ADDPATCH fortran:

This is the third contribution to the reduction of the g77 meta-bug.

The SECNDS intrinsic is non-standard.  It returns the time in seconds, 
since midnight, less the
value of the REAL(4) argument.  The DATE_AND_TIME intrinsic does all the 
work for us in this
case.  Since the method of extracting the system time is OS dependent, 
it seems as well not to
duplicate this code.  I have therefore implemented SECNDS by an 
interface to the function for
data_and_time.

The testcase only really tests the interface, since it compares time 
since midnight and the execution
time of a double loop (about 0.4s on an Athlon1700) with date_and_time.

Bubblestrapped and regtested on FC3/Athlon.  OK for mainline and 4.0?

Paul T

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: submit.msg
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20051029/01228046/attachment.ksh>