1627f7eb2Smrg /* Implementation of the TIME and TIME8 g77 intrinsics. 2*4c3eb207Smrg Copyright (C) 2005-2020 Free Software Foundation, Inc. 3627f7eb2Smrg Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> 4627f7eb2Smrg 5627f7eb2Smrg This file is part of the GNU Fortran runtime library (libgfortran). 6627f7eb2Smrg 7627f7eb2Smrg Libgfortran is free software; you can redistribute it and/or 8627f7eb2Smrg modify it under the terms of the GNU General Public 9627f7eb2Smrg License as published by the Free Software Foundation; either 10627f7eb2Smrg version 3 of the License, or (at your option) any later version. 11627f7eb2Smrg 12627f7eb2Smrg Libgfortran is distributed in the hope that it will be useful, 13627f7eb2Smrg but WITHOUT ANY WARRANTY; without even the implied warranty of 14627f7eb2Smrg MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15627f7eb2Smrg GNU General Public License for more details. 16627f7eb2Smrg 17627f7eb2Smrg Under Section 7 of GPL version 3, you are granted additional 18627f7eb2Smrg permissions described in the GCC Runtime Library Exception, version 19627f7eb2Smrg 3.1, as published by the Free Software Foundation. 20627f7eb2Smrg 21627f7eb2Smrg You should have received a copy of the GNU General Public License and 22627f7eb2Smrg a copy of the GCC Runtime Library Exception along with this program; 23627f7eb2Smrg see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 24627f7eb2Smrg <http://www.gnu.org/licenses/>. */ 25627f7eb2Smrg 26627f7eb2Smrg #include "libgfortran.h" 27627f7eb2Smrg #include <time.h> 28627f7eb2Smrg 29627f7eb2Smrg 30627f7eb2Smrg /* INTEGER(KIND=4) FUNCTION TIME() */ 31627f7eb2Smrg 32627f7eb2Smrg extern GFC_INTEGER_4 time_func (void); 33627f7eb2Smrg export_proto(time_func); 34627f7eb2Smrg 35627f7eb2Smrg GFC_INTEGER_4 time_func(void)36627f7eb2Smrgtime_func (void) 37627f7eb2Smrg { 38627f7eb2Smrg return (GFC_INTEGER_4) time (NULL); 39627f7eb2Smrg } 40627f7eb2Smrg 41627f7eb2Smrg /* INTEGER(KIND=8) FUNCTION TIME8() */ 42627f7eb2Smrg 43627f7eb2Smrg extern GFC_INTEGER_8 time8_func (void); 44627f7eb2Smrg export_proto(time8_func); 45627f7eb2Smrg 46627f7eb2Smrg GFC_INTEGER_8 time8_func(void)47627f7eb2Smrgtime8_func (void) 48627f7eb2Smrg { 49627f7eb2Smrg return (GFC_INTEGER_8) time (NULL); 50627f7eb2Smrg } 51