This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[gfortran] Implementation SYSTEM_CLOCK intrinsic subroutine


Paul, et al.

Here is an implementation of SYSTEM_CLOCK.  Bootstrapped and
tested on FreeBSD-current.  Note, the output is Fortran processor
dependent, so I can't write a portable test case.  Also, note 
there is one failure mode that I just discovered.  At the moment,
I don't know how to fix the problem.  In short, the two things
I tried have failed with the following program.

   program a          ! system_clock requires at least 1 of its
   call system_clock  ! optional arguments to be present.
   end program a

However, the implementation here is better than the current
implementation. ;-).  There are two files. system_clock.diff
should be obvious.  system_clock.c needs to be put into 
libgfortran/intrinsic.

Changelog for gcc/libgfortran

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

  * makefile.am: Add intrinsics/system_clock.c
  * intrinsics/system_clock.c: New file
  * Makefile.in: regenerated
  * aclocal.m4: regenerated

Changelog for gcc/gcc/fortran

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

  *check.c (gfc_check_system_clock): New function
  *intrinsic.c (add_sym_3s): New function, use it.
  *intrinsic.h (gfc_check_system_clock,gfc_resolve_system_clock): Add prototypes
  *iresolve.c (gfc_resolve_system_clock): New function

-- 
Steve

Attachment: system_clock.c
Description: Text document

Attachment: system_clock.diff
Description: Text document


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]