From 12197210b4a551893af85d4b898f74176f3ff36d Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 4 Jul 2006 13:39:46 +0200 Subject: intrinsic.c (add_subroutines): Add ITIME and IDATE. * intrinsic.c (add_subroutines): Add ITIME and IDATE. * intrinsic.h (gfc_check_itime_idate,gfc_resolve_idate, fc_resolve_itime): New protos. * iresolve.c (gfc_resolve_itime, gfc_resolve_idate): New functions. * check.c (gfc_check_itime_idate): New function. * intrinsic.texi: Document the new intrinsics. * intrinsics/date_and_time.c (itime0,idate0,itime_i4,itime_i8, idate_i4,idate_i8): New functions. * gfortran.dg/itime_idate_1.f: New test. * gfortran.dg/itime_idate_2.f: New test. Co-Authored-By: Daniel Franke From-SVN: r115173 --- gcc/fortran/iresolve.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'gcc/fortran/iresolve.c') diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index b4324b9..3eeebc7 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -2334,6 +2334,26 @@ gfc_resolve_etime_sub (gfc_code * c) } +/* G77 compatibility subroutines itime() and idate(). */ + +void +gfc_resolve_itime (gfc_code * c) +{ + c->resolved_sym = gfc_get_intrinsic_sub_symbol + (gfc_get_string (PREFIX("itime_i%d"), + gfc_default_integer_kind)); +} + + +void +gfc_resolve_idate (gfc_code * c) +{ + c->resolved_sym = gfc_get_intrinsic_sub_symbol + (gfc_get_string (PREFIX("idate_i%d"), + gfc_default_integer_kind)); +} + + /* G77 compatibility subroutine second(). */ void -- cgit v1.1