[gfortran] Implementation SYSTEM_CLOCK intrinsic subroutine

[Paul Brook]

> Two files are attached, the diff and system_clock.c.

I made a few changes and applied as follows.

- Removed the broken wrapping code when using time(). This only wraps once 
every 68 years, which I think is an acceptable limitation.
- Removed system_clock_nop. This had the wrong number of arguments. Used the 
existing functions instead.
- Shared the state variables between the two implementations. This makes the 
results of interleaving calls to the _4 and _8 versions more consistent.

Paul

2004-05-22  Steven G. Kargl  <kargls@comcast.net>

	* check.c (gfc_check_system_clock): New function.
	* intrinsic.c (add_sym_3s): New function.
	(add_subroutines): Use it.
	* intrinsic.h (gfc_check_system_clock, gfc_resolve_system_clock):
	Add prototypes.
	* iresolve.c (gfc_resolve_system_clock): New function.
libgfortran/
	* intrinsics/system_clock: New file.
	* Makefile.am: Add intrinsics/system_clock.c.
	* Makefile.in: Regenerate.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: system_clock.c
Type: text/x-csrc
Size: 5169 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20040522/5773f31f/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch
Type: text/x-diff
Size: 6319 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20040522/5773f31f/attachment-0001.bin>