Home | History | Annotate | Line # | Download | only in intrinsics
ierrno.c revision 1.1 
      1  1.1  mrg /* Implementation of the IERRNO intrinsic.
      2  1.1  mrg    Copyright (C) 2005-2019 Free Software Foundation, Inc.
      3  1.1  mrg    Contributed by Franois-Xavier Coudert <coudert (at) clipper.ens.fr>
      4  1.1  mrg 
      5  1.1  mrg This file is part of the GNU Fortran 95 runtime library (libgfortran).
      6  1.1  mrg 
      7  1.1  mrg Libgfortran is free software; you can redistribute it and/or
      8  1.1  mrg modify it under the terms of the GNU General Public
      9  1.1  mrg License as published by the Free Software Foundation; either
     10  1.1  mrg version 3 of the License, or (at your option) any later version.
     11  1.1  mrg 
     12  1.1  mrg Libgfortran is distributed in the hope that it will be useful,
     13  1.1  mrg but WITHOUT ANY WARRANTY; without even the implied warranty of
     14  1.1  mrg MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     15  1.1  mrg GNU General Public License for more details.
     16  1.1  mrg 
     17  1.1  mrg Under Section 7 of GPL version 3, you are granted additional
     18  1.1  mrg permissions described in the GCC Runtime Library Exception, version
     19  1.1  mrg 3.1, as published by the Free Software Foundation.
     20  1.1  mrg 
     21  1.1  mrg You should have received a copy of the GNU General Public License and
     22  1.1  mrg a copy of the GCC Runtime Library Exception along with this program;
     23  1.1  mrg see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
     24  1.1  mrg <http://www.gnu.org/licenses/>.  */
     25  1.1  mrg 
     26  1.1  mrg #include "libgfortran.h"
     27  1.1  mrg 
     28  1.1  mrg #include <errno.h>
     29  1.1  mrg 
     30  1.1  mrg 
     31  1.1  mrg /* INTEGER FUNCTION IERRNO()  */
     32  1.1  mrg 
     33  1.1  mrg extern GFC_INTEGER_4 ierrno_i4 (void);
     34  1.1  mrg export_proto(ierrno_i4);
     35  1.1  mrg 
     36  1.1  mrg GFC_INTEGER_4
     37  1.1  mrg ierrno_i4 (void)
     38  1.1  mrg {
     39  1.1  mrg   return (GFC_INTEGER_4) errno;
     40  1.1  mrg }
     41  1.1  mrg 
     42  1.1  mrg extern GFC_INTEGER_8 ierrno_i8 (void);
     43  1.1  mrg export_proto(ierrno_i8);
     44  1.1  mrg 
     45  1.1  mrg GFC_INTEGER_8
     46  1.1  mrg ierrno_i8 (void)
     47  1.1  mrg {
     48  1.1  mrg   return (GFC_INTEGER_8) errno;
     49  1.1  mrg }
     50