diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-06-12 17:34:47 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-06-12 17:34:47 +0000 |
| commit | 2bd749490845f2edc7de74dca4b29fd7d7698dff (patch) | |
| tree | a1452828cb51b5aff27e540fe28a2545fc15adb8 /libgfortran/intrinsics/cpu_time.c | |
| parent | b08eae928826bd8474cd30a33949af242dfc400c (diff) | |
| download | gcc-2bd749490845f2edc7de74dca4b29fd7d7698dff.zip gcc-2bd749490845f2edc7de74dca4b29fd7d7698dff.tar.gz gcc-2bd749490845f2edc7de74dca4b29fd7d7698dff.tar.bz2 | |
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
Diffstat (limited to 'libgfortran/intrinsics/cpu_time.c')
| -rw-r--r-- | libgfortran/intrinsics/cpu_time.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/cpu_time.c b/libgfortran/intrinsics/cpu_time.c index 9fd954b..887debc 100644 --- a/libgfortran/intrinsics/cpu_time.c +++ b/libgfortran/intrinsics/cpu_time.c @@ -114,3 +114,16 @@ void prefix(cpu_time_##KIND) (GFC_REAL_##KIND *__time) \ CPU_TIME(4) CPU_TIME(8) +void +prefix(second_sub) (GFC_REAL_4 *s) +{ + prefix(cpu_time_4)(s); +} + +GFC_REAL_4 +prefix(second) (void) +{ + GFC_REAL_4 s; + prefix(cpu_time_4)(&s); + return s; +} |