Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/io/read.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 F2003 I/O support contributed by Jerry DeLisle 3 F2003 I/O support contributed by Jerry DeLisle
4 4
5 This file is part of the GNU Fortran runtime library (libgfortran). 5 This file is part of the GNU Fortran runtime library (libgfortran).
6 6
632 size_t w; 632 size_t w;
633 int negative; 633 int negative;
634 char c, *p; 634 char c, *p;
635 635
636 w = f->u.w; 636 w = f->u.w;
637
638 /* This is a legacy extension, and the frontend will only allow such cases
639 * through when -fdec-format-defaults is passed.
640 */
641 if (w == (size_t) DEFAULT_WIDTH)
642 w = default_width_for_integer (length);
637 643
638 p = read_block_form (dtp, &w); 644 p = read_block_form (dtp, &w);
639 645
640 if (p == NULL) 646 if (p == NULL)
641 return; 647 return;