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] |
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] |