1181254a7Smrg /* Implementation of the MCLOCK and MCLOCK8 g77 intrinsics. 2*b1e83836Smrg Copyright (C) 2006-2022 Free Software Foundation, Inc. 3181254a7Smrg Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> 4181254a7Smrg 5181254a7Smrg This file is part of the GNU Fortran runtime library (libgfortran). 6181254a7Smrg 7181254a7Smrg Libgfortran is free software; you can redistribute it and/or 8181254a7Smrg modify it under the terms of the GNU General Public 9181254a7Smrg License as published by the Free Software Foundation; either 10181254a7Smrg version 3 of the License, or (at your option) any later version. 11181254a7Smrg 12181254a7Smrg Libgfortran is distributed in the hope that it will be useful, 13181254a7Smrg but WITHOUT ANY WARRANTY; without even the implied warranty of 14181254a7Smrg MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15181254a7Smrg GNU General Public License for more details. 16181254a7Smrg 17181254a7Smrg Under Section 7 of GPL version 3, you are granted additional 18181254a7Smrg permissions described in the GCC Runtime Library Exception, version 19181254a7Smrg 3.1, as published by the Free Software Foundation. 20181254a7Smrg 21181254a7Smrg You should have received a copy of the GNU General Public License and 22181254a7Smrg a copy of the GCC Runtime Library Exception along with this program; 23181254a7Smrg see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 24181254a7Smrg <http://www.gnu.org/licenses/>. */ 25181254a7Smrg 26181254a7Smrg #include "libgfortran.h" 27181254a7Smrg #include <time.h> 28181254a7Smrg 29181254a7Smrg 30181254a7Smrg /* INTEGER(KIND=4) FUNCTION MCLOCK() */ 31181254a7Smrg 32181254a7Smrg extern GFC_INTEGER_4 mclock (void); 33181254a7Smrg export_proto(mclock); 34181254a7Smrg 35181254a7Smrg GFC_INTEGER_4 mclock(void)36181254a7Smrgmclock (void) 37181254a7Smrg { 38181254a7Smrg return (GFC_INTEGER_4) clock (); 39181254a7Smrg } 40181254a7Smrg 41181254a7Smrg 42181254a7Smrg /* INTEGER(KIND=8) FUNCTION MCLOCK8() */ 43181254a7Smrg 44181254a7Smrg extern GFC_INTEGER_8 mclock8 (void); 45181254a7Smrg export_proto(mclock8); 46181254a7Smrg 47181254a7Smrg GFC_INTEGER_8 mclock8(void)48181254a7Smrgmclock8 (void) 49181254a7Smrg { 50181254a7Smrg return (GFC_INTEGER_8) clock (); 51181254a7Smrg } 52181254a7Smrg 53