1181254a7Smrg /* Implementation of the IERRNO intrinsic. 2*b1e83836Smrg Copyright (C) 2005-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 95 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 28181254a7Smrg #include <errno.h> 29181254a7Smrg 30181254a7Smrg 31181254a7Smrg /* INTEGER FUNCTION IERRNO() */ 32181254a7Smrg 33181254a7Smrg extern GFC_INTEGER_4 ierrno_i4 (void); 34181254a7Smrg export_proto(ierrno_i4); 35181254a7Smrg 36181254a7Smrg GFC_INTEGER_4 ierrno_i4(void)37181254a7Smrgierrno_i4 (void) 38181254a7Smrg { 39181254a7Smrg return (GFC_INTEGER_4) errno; 40181254a7Smrg } 41181254a7Smrg 42181254a7Smrg extern GFC_INTEGER_8 ierrno_i8 (void); 43181254a7Smrg export_proto(ierrno_i8); 44181254a7Smrg 45181254a7Smrg GFC_INTEGER_8 ierrno_i8(void)46181254a7Smrgierrno_i8 (void) 47181254a7Smrg { 48181254a7Smrg return (GFC_INTEGER_8) errno; 49181254a7Smrg } 50