[gfortran] Implementation SYSTEM_CLOCK intrinsic subroutine

[Steve Kargl]

On Fri, May 14, 2004 at 01:34:19PM +0200, Tobias Schl?ter wrote:
> Steve Kargl wrote:
> >   program a          ! system_clock requires at least 1 of its
> >   call system_clock  ! optional arguments to be present.
> >   end program a
> >
> 
> I don't see that this is true. The standard says that each of these 
> arguments are optional, and there is no constraint that one be present, 
> as in the case of SELECTED_REAL_KIND for instance. Of course the call 
> doesn't make much sense if no arguments are given.
> 

Yikes.  You are right.  The standard does not mandate that 
one of the optional arguments is required.  In fact, NAG's
compiler will compile the above without a problem, and the
executable runs.  I think I'll need to update the resolving
routine and if no arguments are present, then point at a
__system_clock_nop internal routine.

-- 
Steve