Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/io/inquire.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* Copyright (C) 2002-2018 Free Software Foundation, Inc. 1 /* Copyright (C) 2002-2020 Free Software Foundation, Inc.
2 Contributed by Andy Vaught 2 Contributed by Andy Vaught
3 3
4 This file is part of the GNU Fortran runtime library (libgfortran). 4 This file is part of the GNU Fortran runtime library (libgfortran).
5 5
6 Libgfortran is free software; you can redistribute it and/or modify 6 Libgfortran is free software; you can redistribute it and/or modify
704 p = "UNKNOWN"; 704 p = "UNKNOWN";
705 cf_strcpy (iqp->unformatted, iqp->unformatted_len, p); 705 cf_strcpy (iqp->unformatted, iqp->unformatted_len, p);
706 } 706 }
707 707
708 if ((cf & IOPARM_INQUIRE_HAS_RECL_OUT) != 0) 708 if ((cf & IOPARM_INQUIRE_HAS_RECL_OUT) != 0)
709 *iqp->recl_out = 0; 709 /* F2018 (N2137) 12.10.2.26: If there is no connection, recl is
710 assigned the value -1. */
711 *iqp->recl_out = -1;
710 712
711 if ((cf & IOPARM_INQUIRE_HAS_NEXTREC) != 0) 713 if ((cf & IOPARM_INQUIRE_HAS_NEXTREC) != 0)
712 *iqp->nextrec = 0; 714 *iqp->nextrec = 0;
713 715
714 if ((cf & IOPARM_INQUIRE_HAS_BLANK) != 0) 716 if ((cf & IOPARM_INQUIRE_HAS_BLANK) != 0)